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Nouveau lecteur de disquette 3', double têtes, double faces 
500 K*octets directement adressables sans retourner la disquette 


T.R.A.N. 
fête son 
5000 ième 

JASMIN 

pour la FRANCE 



BIENVENUE A L'ATMOS FRANÇAIS _ BRAVO EUREKA 
JN9ÉIS LA PUISSANCE NOUVELLE POUR ORIC 1 ET ATMOS 

JASMIN w»t un pioduil dw T R A N ORIC 1 wl ATMOS ion! dot ptodud» ORIC LTO 

Nouvelle conception compacte 3 fiebilité accrue ! Lecteur et contrôleur en un seul boîtier Alimentation sépa 
rée à la prise de secteur —> robustesse et plus de problème de chauffe Fabrication française assurée par DATTEL Aix en Provence, utilisant les der 
niers cris de la technologie 

La puissance du JASMIN vient de son fameux système d'exploitation de disque FTDOS imarque déposée de Technologie Recherche et Applications 
Nouvelles!. Chargement ultra rapide 48 K octets en moins de 5 secondes. 50 instructions indispensables pour les applications de gestion et scienti¬ 
fiques et plus de 5 utilitaires Le FTDOS est chargé en mémoire parallèle, laissant disponible entièrement la mémoire réservée è l'utilisateur Fichiers à 
accès direct à I enregistrement. Fichiers séquentiels Accès direct aux secteurs Matrices Copie directe de cassettes à disquette En prime un logi 
ciel de fichier à accès direct sur plusieurs clés « REPERTORYFICH ». 

offrez-vous DE SUITE votre JASMIN et payez à CREDIT dans 3 mois 


Ens. G 

A la commande 

Ens. H 

A la commande 

Ens. 1 

A la commande 

Ens. J 

A la commande 

3650 F ttc 

150 F 

6390 F ttc 

190 F 

3990 F ttc 

90 F 

6690 F ttc 

190 F 

JASMIN 2 + 
EASYTEXT + 
Livre T DOS 

Fl l*i men.stia 1 11 és 
•le : 

292,43 F 

JASMIN 2 + 
EASYTEXT +■ 
LIVRE T DOS * 
JASMIN PRINTER 

Ht 21 mensualités 
de S 

388,81 F 

JASMIN 2 + 
EASYTEXT + 
MULTIFICH + 
LIVRE T DOS. 

Kt 15 tnonuual 11 és 
de : 

325,85 F 

JASMIN 2 + 
EASYTEXT t 
MULTIFICH f 
LIVRE T DOS + 
JASMIN PRINTER 

tt 21 mensualités 
de : 

407,62 F 

Coût total du créd 

it éUMl 856,60 F. 

Coût total du crédit •[MI 1965,01 F. 

Coût total du crédit ♦DM1 987,75 F. 

Coût total du crédit 41X11 2060,02 F. 


Spécialistes 


7501? Pan* VISMO 338 60 00 

13014 MOSSE UC 91 98 80 72 
14?00 l IMPULSION 31 93 33 88 
26500 ECA ELECTRONIQUE 75 43 13 38 
31000 MICRO DIFFUSION - 1 22 81 17 
33800 SON VIOEO 7000 56 9? 91 78 
38000 CMABERT 76 46 6? 73 
57100 ELECTRONIC CENTER 62 53 86 60 
59300 OVNAMIC HIFI 2730 20 04 
59650 MICROPUCE 20 47 18 57 
67150 FRISTCH ETS 88 98 03 51 
69001 OROIELEC ORDINASElF 70 28 23 07 
Il) A 69007 J C R LYON COMPUTER 7 1 61 16 39 , x O° 
u ’ftlXX; MICTEL 30 21 75 01 <0* 

G RAT L - 1 00 OROIVIOUEL 1 328 22 06 O 


L 

LL 

SB 


Taux TEC 24,90 X. Pour tout renseignement Téléphonez au (94) 21.19.68 
BON DE COMMANDE è recopier et è envoyer 

T.R.A.N. sari. - 53, impasse Blériot 
831 30 LA GARDE - Tél : (94) 21.19.68 


Monsieur FOLGOAS 


Nom : . 

Adresse : . 

Code Postal : . Ville 

Date :. Tél. 

Forfait de Port Express an France : 


80 Frs 


Désignation 

Quantité 

unit TTC 

Mt TTC 

















C' iont un cftéqua . 

<*jo voua n ancataaata/ qu'à l'axpédrtion aa i‘apoaa>ii 


Dispo. 







































20, rue de Montreuil 94300 VINCENNES - 

OUVERT DU MARDI AU SAMEDI de 10 h 30 à 13 h 30 


REVENDEUR OFFICIEL AGRÉÉ 


Tél. : (1) 328.22.06 

et de 15 h 30 à 19 h 30 


ORIC-FRANCE 




Imprimante setkosha GP 500A 

50 caractères par seconde 80 colonnes papier 
informatique permet l'édition de textes et gra¬ 
phismes de qualité correcte pour un prix raison 
nable La plus répandue en informatique familiale 
□ imprimanteSEIK0SHAGP500A.2450 F 



Carte mère 

Grèce à ce câble vous pourrez connecter 3 inter 
faces et garderez la possibilité de brancher un 


lecteur de disquettes 

□ carte mère 3 slots_ 205 F 

□ même modèle mais 1 slot_95 F 


Rallonge Péritel 
Ne soyez plus “collé" à l'écran ! 
□ rallonge_ 


60 F 


Synthétiseur vocal 

Enfin votre Oric peut s'exprimer ' Anglais d'origine 
il gardera son accent mais, grftce à un programme 
basic. vous dira 'boniour'. 'gagné’ ou vous 
apprendra l'anglais ou l'allemand 
□ synthétiseur vocal 

(avec cible connexion)-550 F 

_485 F 


Carte E/A 

Pour transformer votre One en centrale de me¬ 
sures Possibilité de brancher plusieurs carias 
□ carte 8 E/A .—. 395 F 

Carte E/S 

Vous permet de commander moteur, relais, lampe, 
sonnerie protecteur 

carie 8 E/S .. 395 F 


Rallonge Joystick 

“Eclatez" vous sans rien arracher ! 

□ rallonge joystick 1.20 m 120 F 


Interface Péritel/Secam 
Pour ceux qui n’ont pas de prise péritel sur leur 
TV 

□ interface C G V_500 F 


Interrupteur 
Ne courrez plus le risque de faire sauter la ROM 
□ interrupteur d'alimentation-60 F 


Alimentation 6.9 ou 12 V 
Pour votre péritel, calculatrice 
□ alimentation ...70 F 







Cassette spéciale micro 

□ les 5_46 F 

□ les 10_MF 


Carte Buffer 

Amplifie les signaux du bus permettant la con¬ 
nexion de plusieurs interfaces Munie d'une prise 
pour alimentation externe si nécessaire 
□ carte buffet-M.C. 



JASMIN 

Le lecteur de disquette que votre Oric préfère 
Permet, entre autres, de recopier sur disquettes 
les logiciels (même plombés) sur cassette 

□ lecteur simple tète_ t _ 

□ lecteur double tète.. 3150 F 



ATM0S48K 

Manuel en français. cible magnéto. 

bloc alimentation 

□ __ 990 F !lf 


1 





■ ' V ‘èJ 

□ 50 super-jeux* 



145 F 

| “• i Tî 

_150 F 


145 F 

f < II 

sur une cassette 


N.C. 





120 F 





120 F 




120 F 





120 F 

□ Moniteur assembleur désassembleur 

□ Assembleur symbolique- 

_140 F 

260 F 

140 F 


120 F 


90 F 

□ Canmbal . 

90F 


180 F 

□ Leila et Jacky. 

140 F 



280 F 


180 F 


95 F 

□ Traitement de texte 

215 F 



□ Bla-bla-bla. 

180 F 

□ Le mystère de Kikekankoi- 


DM.Wimpy 

100 F 



100 F 


140 F 


100 F 



190 F 

□ Ice giant 

85 F 



□ MARC 

95 F 



180 F 


90 F 



95 F 

□ Space shuttle 

95 F 



120 F 


100 F 



120 F 

G Dracula s revenge 

80 F 



80 F 


110 F 


80 F 

□ Zorgen - 

110F 



95 F 

□ Ghost gebbler 

105 F 



95 F 

□ Mobe 3 

110F 



95 F 

D Galaxy 5 

95 F 



140 F 


250 F 



95 F 


160 F 



120 F 

□ Waydor 

140 F 



120 F 


105 F 


140 F 


105 F 



95 F 


160 F 


140 F 

□ Nessy_ 

95 F 


95 F 


155 F 


120 F 


9b F 



120 F 


95 F 



120 F 

DRV lerreur 

95 F 



140 F 


140 F 


140 F 


190 F 



120 F 


190 F 



95 F 


95 F 



140 F 


120 F 

□ Gestion de stock- 

— 180 F 

140 F 


120 F 


180 F 


120 F 


140 F 

□ Terminus 


120 F 

□ Zoolympics- 

_120 F 


LOGICIELS AMSTRAD DISPONIBLES 

ÜATOM SNIASHER_100 F 

au cœur d'une centrale nucléaire vous allez 
'bombarder' les protons en empêchant l’en¬ 
crassement et l'élévation de la température 

□ COUNTRY COTTAGE _ 125 F 

fantastique jeu de stratégie financière texte 
et superbes graphismes 

□ STAR AVENGER_80 F 

parmi les neufs parcours possibles dirigez 
votre vaisseau spatial en évitant les tirs 
ennemis 

□ SUPER-PROMOTION AM S TRAD 

les 7 logiciels ci-contre : 680 F 

1 joystick "TRIVITT" 140 F 

820 T 

660 F !!! 


□ GALAXIA_7b F 

un très beau combat galactique 

□ ALIEN BREAK IN _100 F 

superbe jeu d'arcade ou vous choisirez parmi 
plus de 10 tableaux l'option 'pilote' ou 'arcade' 
et la vitesse de votre vaisseau 

□ GRAND PRIX _100 F 

la formule 1 dans un fauteuil 

□ 3D MONSTER _ 100 F 


sortez d'un labyrinthe en trois dimensions et 
sur trois niveaux parsemé d’embûches 


i 



Branchement ordinateur/magnétoscope 

Grèce è cette interface laissez brancher en per 
manence votre ordinateur et votre magnétoscope 
Prévoir une alimentation 12 V 
□ interface ordiVmagnétosc- 345 F 


Interface M.I.D.I. 

Le standard M I D I est le standard "RS232' de 
la musique Connecté è un synthétiseur, boite i 
rythme, orgue vous programmerez (en basic) 
les plus belles mélodies 

□ interface M l 0.1_M.C. 


(Si 

Moniteur 12" 

Splendide moniteur 12" monochrome vert ou 
ambre Un modèle professionnel i un prix grand 
public 

C j moniteur 12” vert ou ambre-1400 F 



Mannesmann MT 80 S 

L'imprimante “top niveau* en informatique (ami 
lialelOOcaractères par seconde Papier normal 
ou informatique Entrainement par fnclion ou 
traction. Si vous recherchez une qualité 'courrier', 
la MT 80 vous donnera plus que des satisfactions 
tant pour le texte que pour le graphisme 
□ Mannesmann MT 80 S -- 3850 F 1 


1 



Le “MUST" en matière de joystick ! 8 directions, 
contact par micro-contact, robuste, élégant, précis 
il ne vous décevra pas. garanti 1 an. compati 
ble standard ATARI et MSX 
: . loyst.ck TIRVITT_ 140 F 


Interface tous jeux 
Grèce è cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de jeux. 
□ interface tous |eux —...— 425 F 


Imprimante MCP 40 

L'imprimante 4 couleurs aux couleurs d'ORIC I 
□ imprimante MCP 40 1600 F 




MOOEM 

Votre ORIC s'ouvre sur l'extérieur II “discute* 
avec ses semblables et accède au réseau “minitel* 
Fourni avec interface intégrée et logiciel 
□ modem.-..1490 F 


Magnétophone 

Ce magnétophone spécialement conçu pour les 
micro ordinateurs vous évilera bien des soucis 
Entrée OIN ou Jack. Niveau réglable. Témoin 
sonore et lumineux. Alimentation intégrée 
□ magnétophone . . 495 F 




Câble Imprimante 

Vous permet de connecter votre Oric a n'importe 
quelle imprimante au standard “centromr* 

□ câble imprimante-150 F 

Câble Moniteur 

Pour brancher votre Oric è un moniteur mono 
chrome 

O câble moniteur , 55 F 


Z 

c 


_ — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — (/> 

COMMENT COMMANDER : £ 

- Cocher leis) article!s) désirais) ou faites en une liste sur une feuille è part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F. 40 F de 500 à 1000 F. 60 F pour tout achat supérieur à 1000 F) ^ 

Je possède : D ORIC 1 □ ATMOS z 

NOM : _ PRENOM_TEL. :_g 


ADRESSE : ___CODE POSTAL : 

Mode de paiement : Q chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 
envoyer le tout è ORDIVIDUEL 20. rue de Montreuil 94300 VINCENNES 


VILLE : 


réseau _ 

E55E5 


INDICA 
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NOS ANNONCEURS 


TRAN II - ORDIVIDUEL p.3 - SORACOM p.6 - BLEU CIEL 
p.1 7 - EUREKA III et IV 


COMMANDE ANCIENS NUMÉROS 
(valable jusqu'à épuisement des stocks) 


Numéros 1, 2, 3. 20 F pièce 

Numéros suivants . 30 F pièce 

NOM .Prénom . 

Adresse . 

Code Postal .Ville . 


Frais de port : 6,50 F jusqu'à 2 exemplaires 

9,50 F jusqu'à 4 exemplaires 
13,50 F jusqu'à 6 exemplaires 

Ci-joint, chèque bancaire ou postal de F. 
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Les articles et programmes que nous publions 
dans ce numéro bénéficient pour une grande 
part du droit d'auteur. De ce fait, ils ne peuvent 
être reproduits, imités, contrefaits, même par 
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Ah ! le cri des mouettes, les rumeurs de la mer... Tiens, 
on plagie Graeme Allwright ? Qu'il est doux de ne rien faire 
et de lire son THEORIC au soleil. Pendant ce temps, la 
Rédaction ressemble à une fourmilière car on a décidé de 
faire un HORS SERIE de THEORIC pour le mois d'août. 
Sympa, non ? 

Nous avons pensé à tous ceux qui ne partent pas en vacan¬ 
ces et qui resteront de longues heures devant leur clavier ; 
c'est promis, nous leur fournirons une matière première 
consistante dans un THEORIC encore moins cher : 
25 francs ! De plus, nous modifierons le listing de la distri¬ 
bution NMPP pour que les heureux vacanciers le trouvent 
facilement sur leur lieu de villégiature. Comme il n'y en aura 
pas pour tout le monde, et si vous voulez être certain de 
ne pas manquer ce HORS SERIE, vous pouvez déjà nous 
le commander directement. 


Et comme il faut vivre l'instant présent, tournez cette page 
et partez vite à la découverte de THEORIC n° 10 ; vous 
ne devriez pas être déçu ! 


GAGNEZ UN 

ABONNEMENT A THEORIC 

Votre revue préférée servie gra¬ 
tuitement à domicile : le rêve, 
non ? 

Il peut rapidement devenir réalité 
si vous participez à l'élaboration 
de THEORIC. La publication d'un 
programme entraînera l'abonne¬ 
ment de son auteur (ou la prolon¬ 
gation de son abonnement) pour 
une durée de trois mois, six mois 
ou un an. Nous contacterons les 
auteurs des meilleurs travaux et 
leur proposerons une participa¬ 
tion plus régulière mais rémuné¬ 
rée. Avis aux amateurs, et profi¬ 
tez de vos vacances pour écrire ! 


BON DE COMMANDE 

Commandez dès aujourd'hui THEORIC HORS-SERIE du mois 
d'août. 

NOM : .Prénom : . 

Adresse . 

Code Postal .Ville . 

Ci-joint, un chèque bancaire ou postal de 25 F. 

Abonnés, attention ! Ce numéro HORS-SERIE ne fait pas par¬ 
tie de votre abonnement. Ne le manquez pas... 
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POUR VOUS ••• 




LES MYSTERES DU LASER 

Derus BÜURQUIN 


148 F 


EN PREPARATION SORTIE EN JUIN 


MIEUX PROGRAMMER SUR AMSTRAD 

Michel ARCHAMBAULT 85 F 

PLUS LOIN AVEC LE X07 

Mich'l GANTIER 85 F 

APPRENEZ L'ELECTRONIQUE SUR MSX 

Pierre BEAUFILS 95 F 

APPRENEZ L ELECTRONIQUE SUR AMSTRAD 

Pierre BEAUFILS 95 F 


théwriç 

O N N l S O'OUC 


LES SYNTHETISEURS DE FREQUENCE 

Michel LEVREL - F*.DTA l 25 F 


COMMUNIQUEZ AVEC VOTRE ZXÔ l 

2° 2DITI0N 

DENIS BONÛMO Eddy DUTERTRE 90 F 


EXTENSIONS DU ZX ô 1 

collection poche E.DUTERTRE 48 F 


COMMUNIOUEZ AVEC ORIC ET ATMOS 

Denis BONOMO L Eddy DUTERTRE 145 F 


PROGRAMMES POUR ORIC 

E JACOB & J.PÜRTELLI 50F 

NAVIGUEZ SUR ORIC ET ATMOS 

collection poche E JACOB & J.PÜRTELLI 45F 


APPRENEZ L'ELECTRONIQUE SUR 
ORIC ET ATMOS 

Pierre BEAUFILS 11 0 F 


JOUEZ AVEC HECTOR 

2° édition - Eddy DUTERTRE 48 F 


JOUEZ AVEC AQUARIUS 

collection, poche - L.GENTY 45 F 


LES MYSTERES D'ALICE OU LA PRATIQUE 
DU 6Ô03 

Une des meilleures critiques de la presse professionnelle 

Alain BONNE AUD 151F 


/ 


Accès a 
Ut Ram 
Ovetldy 
Iuhs 

imprimante* 

a I essai 
lest du 


Assembleur 

Joue; 


MIEUX PROGRAMMER SUR ORIC 
ET ATMOS 

Michel ARCHAMBAULT 


nouveau 


✓ 

















L orsque votre lettre fait suite à 
une précédente, n'oubliez pas 
d'en rappeler l'objet car, vu le 
volume de courrier reçu à la 
rédaction, celui-ci est détruit 
après traitement. Evitez les phra¬ 
ses du type : "au sujet du pro¬ 
blème dont je vous parlais dans 
ma précédente lettre..." car nous 
sommes bien embêtés pour vous 
répondre ! 

Nous rappelons (ne l'avons-nous 
pas assez écrit ?) que nous ne 
répondons qu'au courrier accom¬ 
pagné d'une enveloppe affran¬ 
chie self-adressée ou d'une éti¬ 
quette d'abonné. 

Enfin, ne nous questionnez pas 
sur la manière de modifier pour 
ORIC tel programme paru dans 
une autre revue ou livre, à plus 
forte raison s'il était écrit pour un 
autre ordinateur. Contactez plu¬ 
tôt l'éditeur en question... 

UNE QUESTION QUI 
EST REVENUE DEUX FOIS 

Comment sauvegarder le TDOS 
modifié ? 

Franchement, nous n'attendions 
pas cette question après avoir 
publié les modifications du TDOS 
(inhibition de la temporisation 
pendant laquelle apparaît 
l'adresse de TRAN). Il suffit, en 
effet, de faire tout simplement 
une commande IMASTER pour 
mettre sur une autre disquette 
votre TDOS modifié. 

M. Jean-Michel PRET 
NOUS ECRIT : 

Vous avez beaucoup parlé des 
problèmes du lecteur de disquet¬ 
tes ORIC, mais vous n’abordez 
pas ceux du JASMIN, je vais 
donc vous en parler. 

Tout d'abord, il faut citer le choix 
malheureux des adresses en haut 
de page 3 fit 3F4 à # 3FF), le ren¬ 
dant incompatible avec de nom¬ 
breux périphériques. En lisant le 
manuel de F A TMOS, chapitre 11, 
on voit qu’il est conseillé à un 
"amateur passionné” d’utiliser 
pour ses périphériques les adres¬ 
ses du haut de la page 3 (tt 3FF 
et plus bas) où les raccordements 
d'interface sont les plus faciles. 


”... puisque les périphériques 
ORIC sont conçus pour utiliser 
des adresses allant de tt 300 vers 
les adresses supérieures”. Les 
gens de chez TRAN, ont-ils oublié 
de lire le manuel ou se consi¬ 
dèrent-ils comme des "amateurs 
passionnés” ? 

Plus grave encore, une partie de 
la mémoire est utilisée pour pas¬ 
ser les paramètres (tt 9 7E0 à 
tt 97FF), ce qui a pour inconvé¬ 
nient de détruire les logiciels en 
langage machine, implantés à 
cette adresse (comme la table de 
mnémoniques du Moniteur 1.0 
de Loricie/s, par exemple). Pour¬ 
quoi ne pas utiliser la zone tt BFEO 
à tt BFFF réservée à cet effet ? 
Pour le logiciel, il faut signaler, 
outre les problèmes fréquents de 
Backup, qui se bloque trop sou¬ 
vent, le fait qu'il est impossible 
de lire par ”BKP” une disquette 
protégée en écriture par l’ergot 
idoine, pour la dupliquer, ce qui 
rend aussi possible l’erreur qui 
consiste à copier le disque 
"récepteur” sur le "SOURCE”, 
en détruisant toutes les données 
bien sûr. 

Le "TKD” ne tourne que dans un 
nombre limité de cas, en particu¬ 
lier un enregistrement cassette 
sans nom (ce qui est fréquent) 
n'est pas lisible par cette 
méthode. 

Je pense qu 'il serait souhaitable 
de souligner ces problèmes, en 
particulier celui de la pollution 
”secrète ” du haut de la mémoire 
utilisateur, et de rechercher des 
solutions, dans le but d'améliorer 
le confort d'utilisation. 

Voilà un lecteur qui n'est pas très 
content de son matériel. Nous 
avons déjà évoqué certains pro¬ 
blèmes rencontrés avec Jasmin, 
et la société TRAN, elle-même, 
est consciente des difficultés qui 
existaient sur les premiers modè¬ 
les. Le Jasmin 2, mis sur le mar¬ 
ché au printemps 85, devrait, 
semble-t-il, résoudre bien des 
problèmes côté hard, mais il 
demeure quelques imperfections 
au niveau du soft. 

Le T-DOS n'a cessé d'évoluer 
pour corriger ses défauts, et les 
nouvelles versions ont toujours 


été fournies "gratuitement". 
Pendant ce temps, le MICRO- 
DISC sombrait dans une léthargie 
dont il n'est sorti que grâce à XL 
DOS (vendu par Microprogram¬ 
mes 5) et au RANDOS (la notice 
en français sera peut-être enfin 
disponible lorsque vous lirez ces 
lignes), pour disparaître (definiti¬ 
vement ?) de la "photo de 
famille" du matériel ORIC. Dom¬ 
mage ! C'est du bon matériel, 
mais sans logiciel, que faire ? 


LES GROS 

REVENDEURS ET VOUS 

Combien de courriers nous par¬ 
viennent de lecteurs mécontents. 
Ils ont acheté leur matériel et 
n'arrivent pas à le faire dépanner 
par leur revendeur, ou alors les 
délais sont inexplicablement 
longs. Nous avons cité, dans un 
précédent numéro, des conflits 
avec VISMO. Il semblerait que, 
dans le même domaine, Général 
Vidéo (Paris) se distingue égale¬ 
ment. Ainsi, M. Philippe MAIL¬ 
LARD qui, ayant acheté le 21 
novembre 1984 un Jasmin 
(tombé en panne le 23) a bataillé 
(nous vous faisons grâce des dif¬ 
férentes étapes) jusqu'au 5 mars 
1985 pour récupérer (à défaut 
d'obtenir un dépannage satisfai¬ 
sant) un chèque de 3690 F repré¬ 
sentant le remboursement de son 
achat. Trois mois de bataille au 
téléphone, par courrier et dépla¬ 
cements successifs pour en arri¬ 
ver là ! 

Mais, dans les deux cas, il est à 
souligner que VISMO, comme 
Général Vidéo, ont remboursé le 
client mécontent. 

A côté de cela, les petits reven¬ 
deurs qui essaient de faire face, 
ayant, de la part des fabricants, 
des conditions financières beau¬ 
coup moins favorables, mais qui 
sont souvent plus proches de 
leurs clients et cherchent à les 
satisfaire au maximum. Avant 
d'économiser 5 ou 10 % sur 
l'achat d'une machine, il faut 
envisager cet aspect de la chose 
et, peut-être, reconsidérer le pro¬ 
blème... 
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COURRIER 



Nous avons reçu une longue let¬ 
tre, abordant divers problèmes, 
écrite par M. TOWNSEND de 
PARAY-LE-MONIAL (71). 

Nous la reproduisons dans son 
intégralité : 

Vos articles sur les lecteurs de 
cassettes étaient très intéressants. 
Etes-vous sûrs de viser le vrai 
problème ? J'utilise un vieux lec¬ 
teur avec mon ORIC-1, et pour 
charger mes propres program¬ 
mes, je n 'ai aucune difficulté. En 
plus, les programmes que j'ai 
achetés en Angleterre se char¬ 
gent pratiquement tous au pre¬ 
mier essai, et la plage utilisable 
des réglages (tonalité et volume) 
est asssez large — de l'ordre de 
25 % de la plage totale. Par 
contre, les logiciels français sont 
toujours difficiles à charger. Mes 
expériences se limitent aux Lori- 
ciels et "Tyrann" de Norsoft. 
Aucune cassette ne se charge 
sans difficultés ; certaines n 'ont 
jamais voulu marcher. Il est cou¬ 
rant de passer une demi-heure, 
avec modifications multiples des 
réglages ; la plage utilisable est 
toujours très limitée. Quant à 
Tyrann, j'ai eu 5 fois de suite le 
message “Attention, protection 
Norsoft", suivi d’une "vidange" ! 
A 180 F pièce, c'est quand 
même agaçant ! 

J’ai entendu dire que les sociétés 
françaises utiliseraient une pro¬ 
tection qui rend la lecture des 
cassettes très pointue afin d’évi¬ 
ter le piratage audio. 

Les messages Norsoft pourraient 
confirmer ce bruit. 

Auriez-vous reçu le même genre 
d'information ? 

Si oui, ne s'agit-ilpas d'un abus ? 
Mon impression semble se 
confirmer à la lecture des revues 
anglaises : personne (ou presque) 
ne se plaint de problèmes de 
chargement. En France, on n'en¬ 
tend que ça. 

Mon point de vue : 

Le problème du piratage est exa¬ 
géré d’une façon grotesque. 
Nous avons tous un budget infor¬ 
matique. En général, son montant 
égale une somme raisonnable + 
20 % - 50 % pour les drogués. 
Résultat : Le particulier qui fait 


des copies sauvages augmente 
sa cassétothèque, mais ce n'est 
pas pour autant que son budget 
diminue. Très simplement, il 
achète autre chose. Pour ma 
part, je n'aime pas le piratage, 
mais personne n'empêchera les 
jeunes d’augmenter leur stock de 
programmes — ils dépensent 
déjà tout ce qu'ils peuvent. 

Si en plus ils n'arrivent pas à 
charger ce qu'ils achètent, ils 
iront faire du tennis, du skate¬ 
board. .. 

Les professionnels du piratage ? 
Ils arriveront toujours à déver¬ 
rouiller un programme ; c'est 
donc de la peine perdue ; il n'y a 
que la crédibilité de l'industrie qui 
en souffre. 

Nos lecteurs, souvent confrontés 
aux problèmes des protections, 
nous écrivent avec l'espoir de 
voir les choses changer dans ce 
domaine. Il est difficile de trouver 
une solution et, sans vouloir 
défendre les éditeurs, nous 
croyons que, même avec des 
cassettes à 30 F, il y aurait tou¬ 
jours des copies sauvages pour 
les raisons évoquées par 
M. TOWNSEND. 

Par contre, nous déplorons le 
manque de soin apporté à la réa¬ 
lisation des duplications des cas¬ 
settes commercialisées. Aucun 
éditeur n'a affirmé enregistrer 
volontairement à bas niveau, 
mais si cela est vrai, nous pen¬ 
sons que la chose est abusive 
et... inadmissible. 

Puis, notre lecteur fait allusion 
aux critiques concernant le trai¬ 
tement de texte ''AUTEUR'', for¬ 
mulées par M. LHUISSIER dans 
THEORIC n° 7. 

Trouvez-moi un autre logiciel qui 
vous fournit un manuel d'une 
quarantaine de pages, une cas¬ 
sette qui non seulement est d'une 
fiabilité parfaite, mais n’est pas 
protégée, ce qui permet la copie 
de sauvegarde. 

Quel autre traitement de texte sur 
cassette vous propose autant de 
possibilités ? 

Quels sont les “défauts". Mon¬ 
sieur LHUISSIER ? Si vous arrivez 


"tant bien que mal" à utiliser 
AUTHOR, avez vous pris le 
temps de maîtriser le manuel 
sans parler du programme ? 
Quant au manque de formation 
logique ou à la mauvaise utilisa¬ 
tion de l’organigramme, je dois 
dire que ça m'est égal, du 
moment où le programme 
marche. 

John DAWSON (auteur de 
AUTHOR) a expliqué que son 
programme était l'extension d'un 
traitement de texte (A SI MOV) 
écrit pour le " Tangerine”, le pre¬ 
mier ordinateur de l’équipe ORIC. 
AUTHOR a été écrit (dit DAW¬ 
SON) utilisant un APPLE 2 + un 
macro-assembleur Merlin. Le 
code était stocké ensuite sur 
deux EPROM de 4 k avant d'être 
entré dans le Tangerine, compacté 
et transféré vers l'ORIC. // main¬ 
tient qu’il a fallu 90 versions 
avant d’être satisfait du travail. 
C'est peut-être un travail de 
débutant, je n 'en sais rien. Je ne 
suis pas... informaticien. 
DERNIER MOT : 

AUTHOR sait : 

— écrire, 

— éditer 

— continuer, 

— sauvegarder, 

— récupérer, 

— rajouter, 

— imprimer un texte. 

En mode édition, il sait : 
insérer, remplacer, effacer, dépla¬ 
cer, copier, effacer à partir d'un 
point choisi, récupérer texte 
effacé, imprimer à partir du cur¬ 
seur, trouver des "bornes ", trou¬ 
ver et modifier des mots/phrases, 
insérer du texte aux points repé¬ 
rés, sauvegarder du texte pour le 
récupérer plus tard et l'insérer au 
curseur. 

Il envoie à l'imprimante jusqu'à 7 
caractères (y compris des carac¬ 
tères de contrôle), et ceci en 
début de texte, début de page, fin 
de ligne, paragraphe, page et 
texte. 

// la forma tte (en mode graphique 
pour les Epson) et propose 19 
commandes à point pour la mise 
en page, etc. 

C'est quand même pas mal pour 
180 F. 

Dommage qu 'il n'y ait pas de cla- 
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RECONNAISSANCE 
DE PATERNITE 


vier accentué. 

C'est vrai que ta traduction du 
manuel est un modèle du genre. 
J’arrive à comprendre en refai¬ 
sant la traduction vers l'anglais. 
Mais ce n'est pas la responsabi¬ 
lité de celui qui a fait le pro¬ 
gramme ! Je me demande si un 
jour les importateurs compren¬ 
dront qu’il est raisonnable d'in¬ 
vestir une partie des économies 
qu’ils font en achetant du "prêt 
à vendre ", et l’utilisation d’un tra¬ 
ducteur compétent serait le pre¬ 
mier effort à faire ! 

Nous n'ajouterons rien, sinon 
qu'entre contents et mécontents 
la balance s'équilibre. Il est bon 
que chacun puisse s'exprimer, et 
THEORIC est là pour ça ! 


T HEORIC existe depuis avril 
1984 ; c'est une revue assez 
jeune, et l'expérience de l'équipe 
de la rédaction s'enrichit jour 
après jour. Suite à la parution de 
THEORIC n° 8, nous avons, pour 
la première fois, été confrontés à 
un problème particulier : un de 
nos auteurs aurait "plagié" un 
article passé dans une autre 
revue. 

************** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


Connaissant l'auteur, et au vu de 
la simplicité du montage proposé, 
considérant qu'il n'y a pas 36 
façons "techniques" de réaliser 
une alimentation secourue, et par 
le fait même que le rédacteur en 
chef de THEORIC avait déjà réa¬ 
lisé le même montage il y a 4 ans, 
à l'époque du ZX80, nous avons 
été assez surpris par là lettre 
reçue un beau matin à la rédac¬ 
tion. 

Une liaison téléphonique avec 
son auteur nous a permis de 
constater que, de bonne foi, il 
cherchait à protéger (non vis-à- 
vis des lecteurs de THEORIC, 
mais surtout à l'encontre des 
"pirates industriels") sa réalisa¬ 
tion ; nous avons cédé à son désir 
de voir cette lettre publiée dans 
les colonnes de THEORIC. 
Malgré cela, nous ne démordons 
pas du fait que, pour réaliser un 
montage aussi simple, il n'y a pas 
plusieurs manières possibles. 
D'ailleurs, les valeurs des compo¬ 
sants n'étaient pas identiques. 
Doit-on reconnaître la paternité 
du montage à M. J.M. COUR ? 
Peut-être, puisque c'est lui qui l'a 
fait breveter... 

Méditons sur la leçon, et n'ou¬ 
blions pas de faire breveter nos 
prochaines associations judicieu¬ 
ses de composants électroni¬ 
ques : ça pourra toujours servir ! 
Voici, in-extenso (nous avons 
seulement ôté le numéro de télé¬ 
phone et l'adresse de M. Jean- 
Michel COUR pour éviter qu'il ne 
soit importuné) le texte de la let¬ 
tre reçue. 



Orsay, le 6 Juin 1985 Jean-Michel COUR 


R l’attention du Directeur de la Publication Mr, S ■ FAUREZ 

Objet : article paru dans le n* 8 de THEORIC 

( M. Le Guyader , Alimentation Secourue 1 

Monsieur le Directeur, 

Mon attention a été attirée par l’article cité ci-dessus, 
du fait de son extrême ressemblance avec celui que j’ai moi-méme 
publié dans les colonnes de votre confrère M Micro-Systèmes’’ , 
numéro 40 de Mars 1984 . 

En effet, le dispositif décrit ainsi que les mesures 
à prendre pour s’en servir correctement , sont quasi-identiques 
dans les deux papiers. En outre, je puis vous informer que mon 
propre prototype avait été réalisé pour un Oric ... et que J’en ai 
fait cadeau é Oric-France en son temps ! 

Pour l’information de vos lecteurs, il leur faut en outre 
savoir que cette alimentation secourue fait l’objet du brevet 
Français réf. 83 18792 ( n° publication.: 2 555 778 ) . Si c’est 
bien volontiers que j’accorde h vos lecteurs un droit de reproduction 
pour leur propre usage, je dois rappeler que mes droits sont ainsi 
réservés vis-â-vis de toute espèce de commercialisation. 

Je veux croire que M. Le Guyader n’a fait que re-trouver 
ce que j’ai développé moi-méme dans un premier temps, et qu’il 
reconnaîtra sans soute ma paternité en cette matière. 

Oans l’attente de lire ces lignes dans votre rubrique 
" Courrier " , je vous prie d’accepter. Monsieur le Directeur, l’expression 
de mes sentiments distingués. 

Jean-Michel COUR 

PJ copie de l’article paru dans “ M1cro_Systèmes " 

copie de l’avis de publication de mon brevet Français 
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DANS LE 

NUMERO HORS SERIE 
VOUS TROUVEREZ : 

— un traitement de texte en lan¬ 
gage machine ; à lui seul, il justi¬ 
fie les quelques francs que vous 
dépenserez pour THEORIC ; 

— un jeu, PENGO, écrit en 
grande partie en langage 
machine, qui n'a rien à envier à 
certains jeux commercialisés. 
Puis encore, pêle-mêle, utilitaires 
et jeux : numérotation automati¬ 
que avec lignes de 250 caractè¬ 
res, éditeur de caractères en lan¬ 
gage machine pour redéfinir vos 
plus beaux envahisseurs. 
FRANCE, jeu éducatif, CHAS¬ 
SEUR, obéissant à votre voix, 
STARWAR, aventure dans l'es¬ 
pace, etc. 

De quoi occuper vos journées les 
plus désoeuvrées. 


Les revendeurs distribuant des 
produits diffusés par "INNELEC" 
n'auront plus d'excuses s'ils refu¬ 
sent de vous échanger une cas¬ 
sette défectueuse. La société 
INNELEC met, en effet, sur pieds 
un système de fiches permettant 
de gérer les retours de cassettes. 
Cette fiche doit être remplie par 
le client et par le revendeur ; les 
symptômes du défaut constaté y 
sont brièvement décrits. 


ERE INFORMATIQUE 
AU FESTIVAL DU LOGICIEL 
DE VILLEUNEUVE-LEZ-AVIGNON 

ERE INFORMATIQUE sera pré¬ 
sente au Festival du Logiciel de 
Villeneuve-lez-Avignons du 22 au 
27 juillet 1985. 

La démarche des organisateurs 
en faveur de la création logicielle 
française a amené ERE INFOR¬ 


MATIQUE à participer active¬ 
ment. 

— Dotation du prix spécial du 
jury ; 

— rencontre avec les auteurs ; 

— candidature au concours des 
logiciels édités pour Macadam 
Bumper, Microsapiens, Chirologie 
sur Amstrad ; 

— Participation au débat "De la 
création à l'édition". 

ERE INFORMATIQUE entend 
ainsi affirmer sa confiance dans 
l'avenir de la création logicielle 
française et son adhésion à des 
principes qui sous-entendent sa 
propre politique d'auteurs. 

— Reconnaissance et protection 
de la qualité d'auteur et de créa¬ 
teur ; 

— soutien matériel et intellectuel 
propre à l'optimisation de leur 
créativité. 


LES SERVICES 
DE THEORIC 

La disquette des programmes de 
THEORIC n° 8 et n° 9 est désor¬ 
mais disponible. Son contenu est 
le suivant : 

VOLUME : T0869 


U 

FTD0S3-2.SYS 

S 

62 SECTORS 

U 

SAISPRT1.BIN 

S 

3 SECTORS 

U 

AFSPRIT1.BIN 

S 

3 SECTORS 

U 

ECH001 .BAS 

S 

36 SECTORS 

U 

SPRITES .BAS 

S 

13 SECTORS 

U 

SURPRISE.BAS 

S 

146 SECTORS 

U 

T0 .BAS 

S 

4 SECTORS 

U 

NEVD0S01.BIN 

S 

2 SECTORS 

U 

NEVD0SAT.BIN 

S 

2 SECTORS 

U 

VITREP01.BIN 

S 

2 SECTORS 

IJ 

VITREPAT.BIN 

S 

2 SECTORS 

U 

CREADATA.BAS 

S 

15 SECTORS 

U 

FACTURE .BAS 

S 

90 SECTORS 

U 

PACHANQU.BAS 

S 

44 SECTORS 

U 

TRIS .BAS 

S 

89 SECTORS 

U 

HICR0TXT.BAS 

S 

5 SECTORS 

U 

SPRITEI .BAS 

S 

13 SECTORS 

164 SECTORS FREE 


SOS LECTEURS 


Daniel PUPIER recherche les 
modifications ORIC-1 vers 
ATMOS des premières versions 
(non compatibles) de : 

- MONOPOLIC (Free Game Blot) 


- WORLD WAR III (Free Game 
Blot) 

- Docteur GENIUS (Loriciels). 

Renaud DURAND, 1 rue du Car¬ 
rousel, 49000 ANGERS voudrait 
transformer sur ATMOS les ver¬ 
sions ORIC-1 de : 

- SCUBA DIVE, 

- HARRIER ATTACK, 

- Q-BERT. 


EUPHORIC 

Avoir des SPRITES sur ORIC était 
tentant, et vous avez été nom¬ 
breux à taper le programme de 
Pierre NOIRMAIN publié dans 
THEORIC n° 8... et à constater 
que la fonction LOCATE avait un 
défaut. 

Notre auteur communique ici les 
modifications à apporter au pro¬ 
gramme, et nous en avons pro¬ 
fité pour mettre les DOKE, desti¬ 
nés à assurer la compatibilité 
ATMOS, dans des lignes situées 
au début du listing. 

Ainsi modifié, il tourne parfaite¬ 
ment sur ORIC-1 et ATMOS. 
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LE LABYRINTHE 
DE "3D-MUNCH” 

Grâce à son plan, Eric VIEL vous 
aide à sortir plus facilement du 
labyrinthe. 

F La fraise (si elle apparaît) 

S Les super-points (verts) 


D Le départ. 
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DES CASSETTES 
A MOINS DE 40 F 

Plus de raison de pirater si le prix 
des logiciels baisse suffisam¬ 
ment. La brèche est ouverte ! Les 
premières cassettes de jeu à 39 F 
ont été mises au catalogue INNE- 
LEC. Pour le moment, ORIC n'est 
hélas pas concerné, mais 
gageons que ce sera bientôt 
chose faite. Les premiers à fêter 
l'événement sont les possesseurs 
d'AMSTRAD, CBM 64, MSX, 
SPECTRUM et VIC 20. 


NOUVEAUTES 

LOGICIELS 

LORICIELS : LOGO ; un nouveau 
langage pour votre ORIC. 

ERE INFORMATIQUE : SAGA ; 
un jeu d'arcade New Look où 
l'aventure n'est pas absente. 
NO MAN'S LAND : DETECTIVE 
STORY ; un générateur d'intri¬ 
gues policières. 


LIVRES 

SORACOM : A paraître, ''L'ORIC 
A NU", véritable bible de l'ORIC, 
avec les ROM ORIC-1 et ATMOS 
désassemblées et abondamment 
commentées en parallèle. Un 
document de référence sans pré¬ 
cédent qui deviendra le livre de 
chevet des programmeurs friands 
de langage machine. 


Nous annoncions, dans notre 
numéro 9, la sortie d'un film poli¬ 
cier dont le thème tourne large¬ 
ment autour de l'informatique, où 
Richard BERRY est un super flic 
faisant travailler davantage son 
cerveau et ses micros que .... son 
357 Magnum. 

Le titre prévu initialement étant 
"Le Scientifique" ; à la sortie 
dans les salles, il s'appelle main¬ 
tenant "Spécial Police”. A aller 
voir pendant les vacances ? 


ASN, C'EST FINI... 

EUREKA. C'EST PARTI ! 

Le dernier communiqué de presse 
d'ASN nous parvenait au 
moment où la maquette de 
THEORIC n° 9 partait chez l'im¬ 
primeur. Nous n'avons donc pas 


pu le reproduire en temps et en 
heure. Pour ASN, c'est donc fini, 
le trait est tiré sur l’affaire ORIC. 
Néanmoins, cela n'a pas été sans 
mal : licenciements, coups bas, 
etc. Nous avons même reçu une 
lettre (hélas anonyme, c'est la rai¬ 
son pour laquelle nous ne la 
reproduisons pas, faute de pou¬ 
voir vérifier) qui en dit long sur les 
procédés utilisés chez ASN ces 
derniers temps. 

Quant à EUREKA, souvent 
accusé, son patron M. J.C. 
TALAR met définitement les cho¬ 
ses au point par un communiqué 
de presse que nous publions "in 
extenso”. 


RUBRfC 'ORIC 
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JUKI K A INfUKNA IigUC A RACHETE ORIC 


C'eut ctione Fuite, et bien oFFicielle : EUREKA INFORMATIQUE a racheté la 
uiHtiétê illlll Int erunt imiul , Inut •uni iitmi et tous leu droits et 

licences sur le «mi» UH II* et tmr tous leu produit» OHM* existants ou è 

venir. 

Devunt les divers bruits farfelu» un écrits quasi calomnieux qui circulent 
A l'heure actuelle, tl nous il semblé bon d'apporter rapidement un 
éciairi'isaeaRttit définitif de lu ni tuât ion, en publiant le télex que nous 
venons de recevoir du Syndic cltari|é de Ut vent»* de lu société ORIC. 

La traduction dudit telex eut la suivante : 

A L'ATTENTION DE M. T AlAR, S.P.I.D. 

SUJET: ORIC INTERNATIONA! PRODUCTS LIMITED ( EN RE CL DCN T JUDICIAIRE) 


CECI EST POUR CONLIRtCR VOTRE ACHAT DES DROITS EXCLUSIFS SUR ORIC ET SES 
PRODUITS. 

LE CONTRAT ENTRE ASN ET ORIC A ETE ROPU, DU TAIT OU REFUS D'ASN DE PAYER 
SA DETTE. 

ASN N’A PLUS AUCUN RAPPORI AVEC ORIC ET J'ENGAGE RAI PERSONNELLE>CNT DES 
POURSUITES CONTRE EUX POUR RECOUVRIR LA DETTE EXISTANTE. 

SALUTATIONS 
DENNIS CROSS 
SYNDIC ET DIRECTEUR. 


Nous vnuu autorisons bton sur A publier ce telex ou hum contenu. 

D'autre» informâtions plu» détaillée» nur la ni tuât Ion actuelle des 
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NOUVELLES 





















DEBUTANTS 


A près avoir fait connaissance 
avec la structure de la bou¬ 
cle, fréquemment utilisée en pro¬ 
grammation, nous allons voir une 
de ses variantes présente sur le 
Basic ORIC. 


REPEAT-UNTIL 

Cette instruction vous permet de 
créer une boucle dans laquelle 
plusieurs lignes de programme 
seront exécutées un certain nom¬ 
bre de fois. A la différence du 
FOR-NEXT, le REPEAT-UNTIL 
n'exige pas la connaissance des 
limites de la boucle. Souvenez- 
vous : avec FOR-NEXT, on devait 
donner une limite supérieure à 
notre boucle. Avec REPEAT- 
UNTIL (Faire-Tant que), on conti¬ 
nuera l'exécution du progamme 
dès que la condition fixée par 
UNTIL est remplie. 

Ceci est très pratique, en particu¬ 
lier quand on doit effectuer des 
saisies de données au clavier. 
Imaginez un petit programme per¬ 
mettant de totaliser les dépenses 
de la semaine et fournissant leur 
total. 


REPEAT 

INPUT "Dépense" ; D 
T = T + D 
UNTIL D = 0 

Dès que la valeur 0 est entrée, la 
boucle de saisie s'achève. 


BOUCLES IMBRIQUEES 

Les boucles FOR-NEXT ou 
REPEAT-UNTIL peuvent être 
imbriquées, ce qui signifie qu'une 
boucle peut être incluse dans une 
autre. Il existe un impératif : deux 
boucles ne doivent jamais être 
croisées. 

Structure correcte 

Boucle I 
Boucle J 

Structure incorrecte 

Boucle I 
Boucle J 

Dans le premier cas, la boucle J 




est entièrement contenue dans la 
boucle I ; dans le second, les 
deux boucles "interfèrent", ce 
qui est formellement interdit. 
Plusieurs boucles peuvent ainsi 
être "emboîtées”. Des boucles 
FOR-NEXT peuvent être incluses 
dans des REPEAT-UNTIL et réci¬ 
proquement, toujours en respec¬ 
tant la loi énoncée ci-dessus. 
Pour en finir avec les boucles, 
soulignons enfin que, dans un 
souci de clarté de présentation, 
le Basic de l'ORIC permet d'utili¬ 
ser le symbole : pour décaler le 
début d'une ligne. 

10 FOR N = 1 TO 10 
20: FOR 4 = 25 TO 5 STEP- 1 
30 : NEXT J 
40 NEXT N 

Précisons que, le fait de mettre 
le nom de la variable de boucle 
derrière le NEXT, ralentit considé¬ 
rablement le traitement par ORIC. 
A chaque fois qu'il n'y a pas 
d'ambiguïté possible, évitez de 
répéter le nom de la variable. 

10 FOR J = 1 TO 20 

20 FOR K = 5 TO 30 : PRINT K : 

NEXT 
30 NEXT 

On peut aussi écrire : NEXT K,J. 
Une tâche répétitive peut être 
exécutée par une boucle. Nous 
allons voir un autre moyen : le 
sous-programme. 

SOUS-PROGRAMME 

C'est un programme dans le pro¬ 
gramme. Il peut accomplir des 
tâches très précises et transmet¬ 
tre des résultats au programme 
principal. Par exemple, c'est lui 
qui sera chargé de calculer la 
TVA et les remises que vous 
consentez à vos clients et déter¬ 
miner ainsi le prix final d'un pro¬ 
duit. 

A chaque prix différent, qui lui 
sera donné en entrée, il effec¬ 
tuera tous les calculs et renverra 
le résultat au programme princi¬ 
pal. Un autre sous-programme 
pourra effectuer la mise en 
tableaux de ces nombres. 

Les accès aux sous-programmes 


se font par GOSUB. 

GOSUB n° de ligne. 

Le numéro de ligne peut égale¬ 
ment être défini en début de pro¬ 
gramme par une "étiquette”. 

10 TVA = 1000 

100 GOSUB TVA 

1000 REM CALCUL DE LA TVA 

1110 RETURN 

Le retour du sous-programme 
vers le programme principal s'ef¬ 
fectue grâce au RETURN. Atten¬ 
tion donc aux RETURN sans 
GOSJUB... et réciproquement ! 
Puisque nous sommes "bran¬ 
chés" (GOTO, GOSUB vous 
connaissez maintenant), faisons 
la connaissance d'un complé¬ 
ment utile : le ON. 

ON... GOTO ON... GOSUB 

Ce ON permet d'effectuer le 
branchement à différentes lignes 
du programme selon l'état d'une 
variable ; comme vous le consta¬ 
terez avec un peu d'expérience, 
ceci est très pratique. 
Supposons que X puisse prendre 
3 valeurs et que, selon ces diffé¬ 
rentes valeurs, on veuille exécu¬ 
ter une partie du programme ou 
un sous-programme particulier. 

10 INPUT X 

20 ON X GOTO 100, 200, 300 

Selon la valeur 1, 2 ou 3 de X, 
on se branchera respectivement 
aux lignes 100, 200 ou 300. 

11 appartiendra au programmeur 
de s'assurer que X reste bien 
compris entre 1 et 3. Ceci pourra 
se faire facilement...- 

15 IF X>3 OR X<1 THEN 10 

Voilà une solution bien simple à 
vos problèmes de menu (aiguil¬ 
lage vers différents sous- 
programmes). On pourra, dans ce 
cas, utiliser GOSUB pour provo¬ 
quer le retour au menu-principal. 
Il ne vous reste plus qu'à mettre 
en pratique ces nouvelles instruc¬ 
tions, ce qui ne devrait plus, 
maintenant, poser de problèmes ! 
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"60 SOLUTIONS 
POUR ORIC-1 + 
ATMOS" 

Rémy SCHULZ 
ETSF 

Connaissez-vous 
l'ORMOS ? Non, ce 
n'est pas le nom du 
petit dernier de la 
famille ORIC ; ce 
néologisme est né 
dans l'esprit de 
l'auteur pour désigner 
l'ORIC-1 + l'ATMOS. 
Son livre s'adresse, 
en effet, aux deux 
machines. Bourré de 
petits trucs, il nous a 
semblé intéressant. 
Vous trouverez, dans 
ces 60 solutions, 
beaucoup d'idées 
hard et soft, qu'il 
vous faudra creuser. 
Certains solutions 
sont livrées "clés en 
main", d'autres 
nécessiteront une 
recherche de votre 
part. Ainsi, certains 
synoptiques proposés 
n'Bnt pas été 
réellement testés par 
l'auteur (nous 
doutons, notamment, 
du système d'accès à 
la RA M Overlay par 
MAP, tel qu’il est 
suggéré). Un autre 
montage, baptisé KGB 
(nous vous laissons le 
plaisir de découvrir 
toutes les subtilités 
des abréviations 


choisies par l'auteur) 
permet d'accéder à la 
RAM convoitée, mais 
avec quelques 
inconvénients. 

Vous trouverez, en 
parcourant ce livre, 
les indications sur la 
gestion de la mémoire 
de l'ORIC : pointeurs, 
stockage du 
programme Basic, 
variables, etc. Ces 
indications sont 
accompagnées des 
explications les plus 
astucieuses. 

Des routines en 
langage machine vous 
proposeront de 
prendre le contrôle 
des interruptions et 
de construire une 
routine imprimante 
universelle. 

Comment contourner 


certains pièges de la 
ROM ORIC-1 ? 
Comment mieux 
utiliser le 
magnétophone, 
économiser de la 
RAM, gagner en 
temps d'exécution, 
etc. ? Toutes les 
réponses sont dans 
l'ouvrage. 

A la fin du livre, vous 
trouverez réunis tous 
les brochages des 
composants essentiels 
de l'ORIC. De quoi 
vous préparer à sortir 
le fer à souder ! En 
somme, un livre 
intéressant répondant 
à des questions aussi 
diverses que variées. 


"MICRO MANIA" 
Charles PLATT 
LONDREYS 

Un livre pour vos 
vacances, voilà ce 
que nous vous 
proposons. Nous 
avions déjà présenté 
(THEORIC n° 4) un 
livre du même 
éditeur, qui possède 
une collection un peu 
en marge de ceux 
auxquels nous 
consacrons 
habituellement les 
lignes de BIBLIORIC. 
Savez-vous ce qu'est 
un Micromaniaque ? 
Non, mais vous 
devinez ! Ce livre est 
plein d'humour et 
nous le conseillons à 
tous ceux qui ont 
envie de se détendre 
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ou de présenter à 
leurs proches, la 
micro-informatique 
sous une jour 
amusant. Il est 
également bourré de 
vérités, et un 
chapitre, consacré 
aux revues micro et à 
la pub, vous 
renseignera sur les us 
et les pratiques en 
cours dans ce milieu. 
A rapprocher avec ce 
que vous voyez ou 
lisez dans THEORIC, 
pour faire la 
différence ! Quant à 
la réalité du produit 
qu'on annonce, avant 
même que sa 


fabrication soit 
lancée, pour voir si le 
marché potentiel est 
là, nous vous laissons 
apprécier ! 

Des chapitres 
numérotés en binaire, 
pour ne pas être 
dépaysé, de l'humour 
à toutes les pages et 
une kyrielle de lois 
(les lois de Platt) à 
recopier et éditer sur 
votre imprimante, 
pour les garder à 
portée de vue. 

Vous apprendrez à 
reconnnaître les 
différents types de 
magasins et ferez 
connaissance avec le 


bidouilleur et le 
bricoleur de génie. 
L'algorythme 
permettant de laver la 
vaisselle est à 
expérimenter si vous 
êtes désoeuvré 
pendant vos 
vacances. Le 
diagramme d'achat du 
néophyte, qui 
démarre avec un 
budget réduit et arrive 
à dépenser 40 fois 
plus, rappellera bien 
des choses à 
certains ! 

Quant à vous, les 
Ludomaniaques qui 
passez des heures 
devant votre écran, 


regardez vos yeux 
exhorbités devant une 
glace... Vous avez 
votre portrait dans le 
bouquin ! 

Agrémenté d'une 
foule de petits 
dessins, ce livre mêle 
humour et vérités, et 
chacun peut s'y 
découvrir au détour 
d'une page. 
Deviendrez-vous 
maître ou esclave de 
l'ordinateur ? A vous 
de choisir. L'auteur, 
quant à lui, espère 
vendre suffisamment 
de livres pour 
s'acheter un IBM PC ! 
On fait la quête ? 


ESSAI DU MODEM 

TONIC 





















L e MODEM TONIC (l'informa¬ 
tique qui communique, peut- 
on lire sur la notice) est fabriqué 
par IN 33 et vient offrir à votre 
ORIC des facilités d'échanges. 
Nous allons voir comment. 

Se posant en concurrent direct du 
MODEM DIGITELEC, le TONIC 
présente avec lui un air de famille, 
mais la ressemblance s'arrête là. 
Elégant dans son petit boîtier gris, 
le TONIC occupe un volume de 
40 x 90 x 155 mm. Son nom, en 
lettres rouges, occupe une partie 
de la face avant qui serait bien 
nue sans cela, car elle ne laisse 
apparaître que 5 diodes électro¬ 
luminescentes renseignant l'uti¬ 
lisateur sur le fonctionnement du 
MODEM : 

Marche/arrêt 
Connexion téléphone 
Réception des données 
Détection de porteuse 
Emission de données. 

Sortant de l'arrière du boîtier, 
3 liaisons : 

— L'alimentation secteur est en 
partie fournie par un transforma¬ 
teur se branchant sur une prise 
murale. Le sélecteur de tension 
de ce bloc alimentation est 
condamné par un morceau d'ad¬ 
hésif, évitant toute manœuvre 
malencontreuse. Nous disons 
“en partie" car cette alim^ptation 
fournit le + 5 V, le - 5 V étant 
fabriqué par une pile de 9 V et un 
régulateur. Il faudra donc penser 
à changer la pile de temps en 
temps... Son état est indiqué par 
l'allumage du voyant MARCHE/ 
ARRET. Par contre, il n'y a pas 
d'interrupteur M/A. 

— Le raccordement à la ligne 
téléphonique, qui s'effectue par 
l'intermédiaire d'un cordon de 
1,50 m, se termine par une fiche 
gigogne. 

— La liaison vers l'ORIC est éta¬ 
blie par l'intermédiaire d'une 
nappe de 40 cm terminée par le 
classique connecteur 34 points 
s'adaptant sur le bus d'exten¬ 
sion. 

Avant de procéder aux essais, 
munis de notre arme favorite (le 
tournevis ouvre-boîte), nous 
avons violé les secrets des 
entrailles du TONIC. Notre curio¬ 
sité malsaine a été punie : les 


références des circuits intégrés 
sont effacées ; voilà qui va poser 
quelques problèmes aux ama¬ 
teurs électroniciens qui voudront 
dépanner le MODEM tombé en 
panne dans quelques mois. Mais 
n'anticipons pas car, pour le 
reste, il n'y a rien à redire. Neuf 
circuits intégrés équipent l'appa¬ 
reil. Nous disposions d'un modèle 
de présérie où les composants 
avaient été soudés manuellement 
(pas de trous métallisés). 
Refermons le boîtier, et voyons 
comment ça fonctionne. Une 
notice de quelques pages donne 
le mode d'emploi de l'appareil et 
des logiciels fournis avec. Il y a 
deux logiciels : 

— connexion au MINITEL (TELE- 
TEL), 

— échanges de programmes 
entre deux ORIC. 

Disons-le tout de suite, ces deux 
logiciels, livrés en “porte-clés'' 
avec le MODEM gagneraient à 
être améliorés. Il faudra travailler 
dessus car la notice ne donne 
aucune indication sur la program¬ 
mation du MODEM (adresses 
mémoire, etc). Nous essaierons, 
dans THEORIC, de vous donner 
quelques informations. Notez que 
le fait d'acheter le TONIC yous 
permet de vous inscrire au club 
"IN 33" mettant en relation les 
différents possesseurs de 
MODEM TONIC. 

Si la procédure d'utilisation "en 
MINITEL" appelle peu de 
commentaires (les limitations 
sont connues : gestion des carac¬ 
tères graphiques, couleurs, etc.), 
il n'en est pas de même avec le 
logiciel d'échange de program¬ 
mes, demandant plus d'attention. 

Ecrits en langage machine, les 
deux sous-programmes Emission 
et Réception se logent dans la 
page 4 et ne peuvent pas être 
chargés simultanément. Dom¬ 
mage ! pour le choix de la page 
4 d'abord, mais aussi pour le fait 
qu'il n'y ait pas un programme 
unique d'Emission/Réception. 
Tous ces petits défauts pourront 
être corrigés par l'utilisateur 
averti, capable de loger les routi¬ 
nes en langage machine à un 
autre emplacement mémoire : ce 


n'est pas un gros travail ! 

ESSAI MINITEL 

Lors de l'essai du MODEM à la 
rédaction de THEORIC, le plus 
difficile fut d'obtenir une ligne 
téléphonique libre ! Pour la suite, 
nous avons travaillé comme sur 
un MINITEL, les touches spécifi¬ 
ques de celui-ci étant obtenues 
par CONTROL "lettre”, ce qui est 
très pratique. Attention, il est 
impératif de reposer le combiné 
une fois la ligne connectée, faute 
de quoi le moindre bruit capté par 
le micro sera traduit par un carac¬ 
tère parasite sur l'écran. Tout 
cela est précisé dans la notice, 
suffisamment explicite à ce sujet. 

ECHANGE 
DE PROGRAMMES 

Deux petites routines (l'une Emis¬ 
sion, l'autre Réception) permet¬ 
tent d'échanger des programmes 
Basic et des zones mémoires. Le 
possesseur de l'ORIC émetteur 
charge la routine “émission" 
(400 à 4FF). Le récepteur charge 
la routine réception (400 à 4FF). 
Le programme à transmettre 
étant en mémoire, on prend 
contact par téléphone, puis on 
envoie par un simple CALL. Toute 
la procédure est décrite, en détail, 
dans la notice. Le logiciel détecte 
les erreurs de transmission. 

Le MODEM peut rester connecté 
à la ligne téléphonique. Prenez 
soin, simplement, de débrancher 
son alimentation. 

CONCLUSION 

Si vos besoins de communication 
■se limitent à l'échange de pro¬ 
grammes avec d'autres “ORI- 
CIENS" et à l'émulation MINITEL, 
en d'autres termes, si vous ne 
voulez pas construire votre pro¬ 
pre serveur, le MODEM TONIC de 
IN 33 devrait vous satisfaire. 
Son prix le situe parfaitement sur 
ce marché, et les seuls reproches 
qu'on puisse lui faire disparaîtront 
avec une amélioration du logiciel 
fourni. 
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S alut les vacanciers ! Quoi ! on 
ose répondre qu'il ne devrait 
pas y avoir de cours pendant les 
vacances ? Vous voulez rire... 
Rangez les serviettes de bain et 
les sacs à dos et au boulot ! 

Il nous reste quelques instruc¬ 
tions à voir ; ensuite nous passe¬ 
rons aux travaux pratiques, mais 
ce sera pour la rentrée de sep¬ 
tembre. Le numéro hors série 
d'août sera un numéro de vacan¬ 
ces. Mais je m'égare, on dirait 
que mon programme a été 
dérouté. Parlons-en des déroute¬ 
ments ! 

SAUTONS ENSEMBLE 
JMP ET JSR 

Nous avons vu les différentes ins¬ 
tructions de branchements (Bxx). 
Elles sont d'un emploi limité car 
le saut s'effectue avec un dépla¬ 
cement effectif compris entre 
- 126 et +129. Si on veut être 
branché plus loin (quel est l'im- 
becile qu a dit chébran ?), il faut 
utiliser l'instruction JMP (comme 
JuMP). L'adresse qui suit le JMP 
est chargée dans le compteur 
ordinal, provocant le déroute¬ 
ment du programme. Cette 


adresse peut être absolue ou indi¬ 
recte. 

Ainsi, pour faire un JMP au 
RESET, on pourra écrire : 

JMP F8B2 IATMOSI absolu 
ou JMP ( # FFFA) indirect. 

La première solution provoque un 
branchement direct à la routine 
de RESET ATMOS. La seconde, 
permet de lire le contenu de 
FFFA, FFFB et saute à l'adresse 
équivalente. Dans ce cas, le fonc¬ 
tionnement sera assuré tant sur 
ORIC-1 qu'ATMOS. Vous m'avez 
compris ! 

Cette instruction JMP doit vous 
rappeler le petit GOTO BASIC ou 
alors, c'est que vous rêvez ! 

Et comme GOTO a un copain : 
GOSUB, JMP a pour ami JSR — 
"qui-c'est-çui-là ?". JSR : Jump 
to SubRoutine, permet d'appeler 
un sous-programme, mais atten¬ 
tion, ouvrez bien vos oreilles car 
il y a bien des choses à retenir. 
Lorsque le programme tombe sur 
un JSR, il se fait mal. Mécontent, 
il note l'adresse indiquée par le 
JSR et la dépose dans le comp¬ 
teur ordinal. Avant d'aller faire un 
tour dans le sous-programme, il 
retient l'adresse de retour, c'est- 
à-dire l'endroit où il devra venir se 


brancher. Cette adresse s'obtient 
en ajoutant 2 à l'adresse du JSR. 
Pour la mémoriser, on la met 
dans la pile, vous savez, cette 
zone mémoire un peu privilégiée ? 
Tout ceci est automatique, mais 
c'est là où ça se corse (salut ! ô 
Ile de beauté) ; tout comme en 
Basic, il faut prendre garde à ne 
pas modifier involontairement 
dans le sous-programme des 
variables (ici des registres) du 
programme principal. Il sera donc 
nécessaire de sauvegarder leurs 
contenus auparavant. Cafrte sau¬ 
vegarde du contexte s'effectuera 
efficacement au moyen de la pile 
(encore !). Nous verrons cela 
tout-à-l'heure. 

La sortie d'un sous-programme 
s'effectue par RTS (Return Sub¬ 
Routine) qui est le pendant du 
RETURN BASIC. Au RTS, le 
compteur programme est 
rechargé avec l'adresse qui avait 
été déposée sur la pile. Le PC 
(sans allusion) est incrémenté (on 
lui ajoute un) et le programme 
continue. 
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JOUONS 
AVEC LA PILE 

Outre l’empilage automatique 
effectué dans certains cas par le 
microprocesseur, il est possible 
d'accéder à la pile par pro¬ 
gramme. Nous avons évoqué une 
des applications lors de l'utilisa¬ 
tion de sous-programmes, mais il 
faut savoir que la pile peut servir 
efficacement de mémoire tempo¬ 
raire. 

La pile est implantée dans la page 
1 (#100 à 1FF). 

On peut empiler que deux regis¬ 
tres : A, l'accumulateur et P le 
registre d'état. Pour sauvegarder 
les autres, on aura recours aux 
instructions de transfert, Txx, 
que nous avons déjà analysées. 
Empiler se traduit "pousser” 
Push et "désempiler” se traduit 
par "tirer” Pull. 

PHA et PHP 

PLA et PLP sont les mnémoni¬ 
ques correspondants. 

Si on veut empiler X, on peut 
écrire : 

TXA 

PHA 

et récupérer par PLA 

TAY 

Attention, ces instructions mar¬ 
chent (en général) par paire. A un 
PHA doit correspondre un PLA, 


sinon c'est le crash... donc tra¬ 
vaillez sur la pile avec ordre. 

Un dernier truc : on peut trans¬ 
férer dans un registre ce qui avait 
été empilé par un autre... Ça peut 
parfois servir. 

TXA 

PHA 

PLA 

TAY 

Ce qui était dans X au départ se 
retrouvera dans Y. 

Encore plus fort mais dangereux 
comme deux gouttes de nitro, la 
modification de l'adresse de 
retour d'un sous-programme. 
Sachant que JSR empile 
l'adresse de retour, si on fait deux 
empilages successifs de A et que 
ces deux octets forment une 
adresse, on peut la récupérer au 
RTS. Intéressant, non ? Ouais, 
tout cela vous paraît nébuleux, 
mais après quelques nuits blan¬ 
ches passées à programmer, tout 
ira mieux ! 

Vous en avez marre, mais je n'ai 
pas encore fini. On ne se lève pas 
avant la cloche de la récré. Inu¬ 
tile de faire des CTRL G, je ne me 
laisserai pas avoir. 

Il nous reste une petite instruc¬ 
tion : c'est RTI (ReTurn from 
Interrupt) qui agit comme RTS 
mais sur une routine d'interrup¬ 


tion. 

L'utilisation des interrupteurs per¬ 
met à l’ORIC d'exécuter des 
tâches cycliques ; souvenez-vous 
du programme horloge proposé 
précédemment dans THEORIC. 
Les interruptions peuvent être 
contrôlées par un composant 
externe ou... par l'ORIC lui-même 
(VIA/ULA). 

Les interruptions sont autorisées 
ou interdites : l'indicateur I du 
registre d'état est là pour faire la 
police. Mis à 1, une interruption 
vient d'être acceptée, il est inu¬ 
tile de casser les pieds au micro, 
il a du travail. Le RTI remet le flag 
I à zéro... Attention ! ceci ne 
concerne que les interruptions 
dites "masquables”. Le RESET 
(NMI, interruption non masqua¬ 
ble) peut avoir lieu. 

Et comment fait-on pour masquer 
une interruption avec le bit I du 
registre d'état ? C'est très simple, 
on utilise les instructions SEI 
(mise à 1 de l'indicateur) et CLI 
(remise à zéro) qui, respective¬ 
ment, inhibent et autorisent les 
interruptions. 

Si on commence à jouer avec... 
DRIIING, DRIIING. 

Ils sont tous partis. Tant pis pour 
eux, les travaux pratiques ne 
commenceront qu'un numéro 
plus tard ! 



DIALOGUE. 

UTILITAIRE DE LIAISON.120 F 

raccordements par prise cassette - 
réseaus -poss. liaison téléphonique 
ORIC 1 et ATMOS 

DAMAE .100F 

Dames françaises (10 » 10 I 
-sauveiarde partie en cours 
•ATMOS 


! «fï CLAVIDACT 

1 É METHODE DE FRAPPE.120 F 


METHODE DE FRAPPE.120 F 

10 ni veau i - libre choix couleurs, 
difficulté et durée des exercices- 
ATMOS-THOMSON MOS 



I ELEPHORM 


;&E8Sfc 


... 100 F 

ELEPHCOLOR ...ioof 

Retrouves le modèle parleis disparu 
parmi 17morcelés 32 lois • ATMOS 


port : 15F RE6LEMENT A LA COMMANDE 


80 rue des Fournlers 07500 BUILHEHAND . lel 75 .A0 A8 AA 
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Dominique PESSAN 
33 - LANGON 

A propos de la Recopie Haute 
Résolution sur BROTHER 1009 
(Jasmin Printer). Notre lecteur a 
amélioré le programme publié 
dans THEORIC n° 6, page 52 
(interligne faisant apparaître des 
traces blanches sur le dessin). 
7288 LDA # $ 33 
728A JSR $ 72D9 

72D9JSR $ 7247 
72DC LDA # $ 17 
72DE JSR $ 7247 
72E1 RTS 

RESET HARD 

Plusieurs lecteurs nous ont sug¬ 
géré de publier un truc évitant de 
débrancher l'ORIC pour faire une 
remise à zéro générale, ce qui 
n'est pas sain pour l'électronique 
de l'ORIC. 

Nous avons retenu deux solu¬ 
tions : 

- Celle de M.'Frédéric PAURON 
intervenant au niveau du micro¬ 
processeur (donc ouverture de 
l'ORIC nécessaire., et perte de 
garantie). 

Il suffit de relier les deux points 
d'un bouton poussoir aux bro- 
ches 1 (VSS) et 40 (Reset) du 
6502. Les deux points sont 
symétriques par rapport à "l'en¬ 
coche" pratiquée dans le boîtier 
du 6502. 

— L'autre, suggérée par diffé¬ 
rents lecteurs (le premier, M. Phi¬ 
lippe MORALES) ne demande pas 
l'ouverture de l'ORIC mais 
condamnera le bus d'extension (à 
moins d'avoir une "carte mère"). 
Il suffit de relier les points 4 et 34 
à travers un bouton poussoir. 
Ceci sera possible en achetant un 
connecteur s'adaptant sur le bus 
d'extension de l'ORIC. Aidez- 
vous de la notice de la machine 
pour repérer les points 4 et 34. 

De M. QUEINNEC 
36 FLERE LA RIVIERE 

Une bogue gênante de l'ATMOS 
et le médicament "remède mira¬ 
cle" pour tous ceux qui ont 
besoin d'aligner des nombres. 


O ’ UES BUGS DE L’ATMOS 

1 9 

10 LF'RINT 515.89-433.65 
20 * 

82.2399999 
Etonnant non ? 

C’est très gênant quand on veut aligner des résultats dans un tableau 
Voici une routine BASIC oour remecner a ce defaut 


16000 REM 

16005 L=LEN(S*> : IFVAHS*» ÛTHENL=L-1:SS-RIGHTS»SS.L> 
16010 F0RC=1T0L 

16020 I FMI DS (SS.C. 1 > = ". "THEN R**Cî GOTO 16045 
16030 NEXT 

16040 SS=SS+ M . “:L a L+l î R=*L: GOTO 16050 
16045 IF(LEN(SS)-R)>4THENSS=LEFTS(SS,R+3) 

16050 SS=SS+ZS:IF MIDS(SS,R+3)<"5"THEN 16090 
16060 N=VAL (SS) s NF’*ABS <N) -MO' (-2) 

16070 SS=STRS(SSN(N)*NF) 

16080 IFN>OTHENSS=MIDS(SS.2) 

16090 SS=LEFTS(SS,R+2) 

16100 L=LEN(SS) 

16110 IFL>9 THEN SS=LEFTS(YS,9)ELSESS=LEFTS(XS,9-L)+SS 
16200 RETURN 


Pour pallier le défaut du MICRO- 
DISC, nous avions suggéré dans 
notre numéro 2 une modification 
permettant de charger, sans pro¬ 
blème, un programme sur cas- 
settG. 

M. Gérald STEINBACH nous a 
fait judicieusement remarquer 
que, au lieu d'utiliser un compo¬ 


sant supplémentaire, il valait 
mieux tirer deux fils dans l'ORIC 
et récupérer les points 2 (entrée) 
et 3 (sortie) du 74 LS 365 se 
trouvant près de la prise RVB, 
pour faire transiter le signal d'hor¬ 
loge. 

Si vous avez besoin d'un buffer, 
sachez que celui-ci est libre ! 


Toujours au sujet du MICRO- 
DISC, Jacques TERRIER — 59 
Armentières nous suggère ce 
petit programme de quelques 
octets, palliant les défauts TAB, 
sauts de lignes intempestifs, etc. 
Un DOKE # 1 B, #400 "bran¬ 
chera" la routine. L'accès depuis 
BASIC peut se faire par CALL 
#403. Il est évident que ce pro¬ 
gramme pourra être inclus au 


BOOTUP.COM. 


1400- 

410 





0400 

20 

B0 

CC 

JSR 

*CCB0 

0403 

•49 

28 


LD4 

R S 28 

0405 

85 

31 


ST4 

*31 

0407 

49 

28 


LD4 

«*28 

0409 

85 

32 


ST4 

*32 

040B 

49 

50 


LD4 

«*50 

040D 

8D 

56 

02 

ST4 

*0256 

0410 

60 



RTS 



CONNAISEZ-VOUS 

MEGAHERTZ? 

Un exemplaire gratuit sur demande. 


JE»DilT’l?4NÏ> 
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"DETECTIVE STORY" 
No Man's Land 
Générateur d'intrigues 
policières 

Ecrit par DUC, un 
auteur bien connu de 
nos lecteurs puisque 
nous avons déjà parlé 
de lui, ce programme 
est fort original. Il 
vous transforme en 
détective New-Yorkais 
et met votre 
perspicacité à 
l'épreuve pour 
résoudre des 
enquêtes ayant toutes 
pour origine un 
homicide. 

Le programme est 
capable de générer 
des milliers d'intrigues 
policières et, si les 
personnages sont 
parfois identiques, les 
situations changent : 
le coupable peut 
devenir victime ou 
simple suspect. 

La première face de la 
cassette est une 
présentation du jeu, 
ce dernier se trouvant 
sur la seconde face. 
Entièrement écrit en 
Basic, son transfert 
sur disquette ne 
devrait poser aucun 
problème. 

Les textes décrivant 
les diverses situations 
apparaissent au bas 
de l'écran, les décors 
étant constitués par 
des caractères 
redéfinis. Assez 
sommaire, le 
graphisme n'en est 
pas pour autant d'un 
moins bel effet. De 
toute façon, l'intérêt 
du jeu se situe 
surtout dans les 


situations qu'il crée. 
Selon votre choix 
parmi les 4 niveaux 
de difficulté, le 
nombre de jours qui 
vous sont impartis 
pour mener à bien 
votre enquête sera 
réduit ou augmenté. 

Le schéma des 
intrigues reste 
toujours le même : 
une victime, six 
suspects, des indices, 
et... un mobile. 

Vous disposez d'un 
bureau où vous 
pouvez vous rendre, 
d'un bar où vos 
"indics" vous 
refileront des tuyaux, 
et d'une voiture, mais 
attention aux excès 
de vitesse ! 

Un morceau de papier 
vous sera rapidement 
indispensable pour 
noter les différents 
indices que vous 
releverez lors de la 
progression de votre 
enquête. En fait, vous 
luttez contre le 
temps, mais pensez à 
vous ménager et à 
vous reposer de 
temps en temps, 
sinon la fatigue se 
fera vite sentir. 

Si vous n'êtes pas 
collectionneur et que 
vous réfléchissez 
avant d'acheter une 
cassette pour occuper 
vos soirées, celle-ci 
devrait retenir votre 
attention de par son 
originalité, et vous 
offrira quelques 
heures de détente. 

"MASTER PAINT" 

Ere Informatique 
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Utilitaire création 
graphique 

Vous êtes des 
passionnés du dessin 
et*des belles pages de 
présentation ? 

MASTER PAINT devrait 
retenir votre 
attention. Utilitaire de 
création graphique, 
votre joystick ou le 
clavier lui seront 
entièrement dévoués. 
Après le chargement 
du programme (si 
votre magnétophone 
n'est pas 
télécommandé, 
attention, vous ne 
verrez pas la démo si 
vous n'arrêtez pas la 
cassette), vous avez 
accès aux fonctions 
de MASTER PAINT. 

Le travail s'effectue 
bien entendu sur 
l'écran HIRES, et le 
curseur est un point 
minuscule qui répond 
aux sollicitations de 
votre clavier (ou du 
joystick). Au début, 
vous aurez tout 
intérêt à utiliser la 
fonction HELP, qui 
fait apparaître au bas 
de l'écran les options 
disponibles. Les 
routines prévues 
sont : tracé des traits, 
de cercles, triangles, 
rectangles, 
remplissage de 
surface. 

Les caractères sont, 
comme les motifs 
graphiques du 
remplissage, 
redéfinissables. Un 
éditeur vous permet 
de travailler en 
visualisant le 
caractère agrandi et 
sous sa taille normale. 
Une fonction loupe, 
comme son nom 
l'indique, fait 
apparaître (sur l'écran 
basse résolution) la 
surface de l'écran 


HIRES sur laquelle 
vous désirez 
travailler : très 
pratique pour fignoler 
les détails. 

Une partie de l'image 
peut être dupliquée 
par la routine de 
transport de blocs, 
capable de 

mémoriser, reproduire, 
"coller'' et 
superposer. Quand 
votre œuvre sera 
achevée, vous 
pourrez la colorier 
avec les limitations 
que l'on sait, dues à 
l'ORIC. 

Bien entendu, le 
travail pourra être 
sauvegardé sur 
cassette. Un dessin 
HIRES, qui n'a pas 
été généré par 
MASTER PAINT 
pourra néanmoîhs être 
traité et embplli par 
ce programme : il 
suffit de le charger. 
Signalons enfin que, 
le cadrage du dessin 
sur l'écran peut être 
modifié grâce aux 
quatre flèches 
curseur, et que la 
vitesse de 
déplacement du 
curseur graphique est 
ajustable. 

Nous avons regretté 
l'absence d'une 
routine de recopie de 
l'écran sur imprimante 
qui aurait permis à 
l'auteur d'un chef- 
d'œuvre de la porter 
à la postérité 
immédiatement après 
sa création. 

Le logiciel est 
accompagné d'un 
mode d'emploi d'une 
douzaine de pages. 
Son prix, un peu 
élevé (250 F) est à 
rapprocher de celui de 
son concurrent direct 
LORlGRAPH (280 F). 

Il est vrai que ce 
dernier possède 


quelques options de 
plus. 

" 1815 " 

Cobra Soft 
Wargame 

Vous attendiez un 
vrai wargame sur 
ORIC ? En voici un I 
Ce genre de jeu ne 
s’évalue pas en 
quelques minutes, 
aussi avons-nous 
confié la cassette à 
deux jeunes 
passionnés qui en ont 
vu d'autres : Eric 
VIEL et Yannick 
BOURREE. Revêtus de 
leurs uniformes 
napoléoniens, ils se 
sont affrontés dans 
une guerre sans 
merci ; voici leurs 
commentaires. 

Enfin un wargame sur 
ORIC et, de plus, 
abordable pour tous. 
Vous dirigez une 
armée napoléonienne 
et votre but est 
d'investir cinq villes 
ennemies tout en 
préservant les vôtres. 
Le jeu se joue à deux, 
chaque participant 
étant, tour à tour, 
attaquant puis 
défenseur, chaque 
manche étant divisée 
en deux phases. 
L'attaquant dispose 
de sept minutes pour 
déplacer ses 
différentes unités 
(cavalerie, batterie 
d'artillerie, infanterie) 
et actionner ses 
batteries. Le 
défenseur actionne 
alors les siennes, et 
ORIC résoud les 
combats, calcule les 
pertes,... Les joueurs 
changent de rôle et le 
tour se termine. Vous 
pouvez alors vérifier 
l'état des positions 
critiques et 
sauvegarder le 



scénario. 

Nous avons bien aimé 
l'écran haute 
résolution qui se 
dessine lors du 
programme de 
présentation. La 
musique qui 
l'accompagne est 
bonne et la simulation 
du roulement de 
tambour vaut le 
détour. On vous 
propose également de 
redéfinir le terrain, 
mais ceci est long et 
fastidieux. La rapidité 
est suffisante, bien 
que le logiciel soit en 
Basic. 

Nous avons beaucoup 
regretté la qualité de 
la documentation d'un 
format un peu petit. Il 
n'est stipulé nulle part 
que la vitesse de 
sauvegarde des 
scénarios est en lent 
(NDLR : ceci répond 
aux nombreuses 
questions qui sont 
arrivées à la rédaction 
4 de THEORIC), et les 
explications sur le 
calcul du rapport des 
forces sont plutôt 
douteuses. 

Le titre étant la date 
de la bataille de 
Waterloo, un récit de 
celle-ci eût été le 
bienvenu. Présenté 
dans un boîtier grand 
format et illustré 
d'une jaquette 
couleurs, ce jeu est 
globalement de bonne 
qualité. 
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Pierre CHICOURRAT 


L e Basic a un avantage évident 
sur les autres langages : sa 
simplicité d'emploi. Cependant, 
certains lui reprochent le fait que 
ses mots soient en anglais et on 
a donc créé le BASIC FRANÇAIS 
ou BASICODE. Ce Basic ressem¬ 
ble comme un frère à son homo¬ 
logue anglais, mis à part que ses 
mots sont en français. 

Ainsi, le "END” bien connu 
devient "FIN" (ou un autre mot 
équivalent). Aujourd'hui, votre 
ORIC se met à la page et vous 
propose son BASICOIS. Le pas¬ 
sage d'un Basic à l'autre se fera 
simplement par la commande 
!F permet de passer au nou¬ 
veau Basic, et IB repasse à l'an¬ 
cien. Cette routine, en langage 
machine, traduit également les 
messages d'erreur et ceux émis 
par le système lors des opéra¬ 
tions sur cassette (CLOAD et 
CSAVE). Elle dote également l'in¬ 
terpréteur d'une nouvelle routine 
de saisie de lignes Basic, grâce à 
laquelle vous pourrez entrer des 
lignes de 256 caractères au maxi¬ 
mum. 


Sur ORIC, il est possible d'utiliser 
l'espace offert par la RAM Over- 
lay, de transférer le Basic normal 
dans cette RAM et de le modifier. 
Ce n'est pourtant pas cette solu¬ 
tion qui a été retenue pour une 
raison essentielle que voici : pour 
pouvoir utiliser la RAM Overlay, 
il faut disposer d'un petit mon¬ 
tage spécial, branché sur le bus 
(paru dans un numéro précédent 
de THEORIC). Cependant, sans 
ce circuit, vous n'auriez pu utili¬ 
ser le programme proposé, ce qui 
n'était guère intéressant... 

Au contraire, la solution choisie 
est purement logicielle : on 
détourne l'interpréteur quand 
celui-ci passe en RAM pour lui 
faire exécuter une routine de 
notre choix. Deux points de la 
RAM sont à ce titre fondamen¬ 
taux : 

# 1 A, # 1 B, #1C (point A) : 
L'interpréteur passe ici pour affi¬ 
cher le message "Ready". 

#EF, #FO, #Fl (point B) : 
L'interpréteur passe par ce point 
à chaque fois qu'il veut interpré¬ 
ter un caractère dans le texte 


Basic. 

En détournant l'interpréteur au 
niveau de ces deux points (c'est- 
à-dire en modifiant le contenu des 
adresses indiquées pour y mettre 
un JMP), on peut arriver à ce que 
l'on s'était fixé. 

Ainsi, détourner l'interpréteur au - 
niveau du point A, revient à modi¬ 
fier son point d'entrée à chaud. 

On peut l'obliger à effectuer un 
branchement à une nouvelle rou¬ 
tine de saisie de lignes. Dans la 
routine proposée, c'est ce qui a 
été utilisé. On utilise également 
ce truc pour traduire les messa¬ 
ges d'erreur. En effet, quand le 
microprocesseur passe en # 1 A, 
le message affiché sur la ligne 
courante du curseur est, bien évi- t 
demment, le dernier message qui u 
a été émis par la machine. Si une i 
erreur a eu lieu, il s'agit donc du < 
dernier message d'erreur. De ce J 
fait, il suffit de comparer ce qui j 
est affiché sur la ligne du curseur j 
avec la liste des messages d'er- j 
reur pour savoir si une erreur a eu ■] 
lieu et pour retrouver son type. A -j 
noter que dans le programme = 







proposé, ce n'est pas la liste des 
messages d'erreur qui sert à la 
comparaison, mais une liste sim¬ 
plifiée (on n'a conservé que les 
premiers caractères de chaque 
message). Le message d'erreur 
reconnu, on peut l'effacer de 
l'écran et le remplacer par un 
message français. Le message 
"BREAK” est traité de la même 
façon. Ouf ! Heureusement que 
tout ceci se passe à la vitesse du 
langage machine... 

Ayant traduit le message d'erreur 
(ou le message de BREAK), le 
microprocesseur exécute la nou¬ 
velle routine de saisie de ligne qui 
s'occupe de saisir vos program¬ 
mes ou vos lignes de comman¬ 
des. Là réside une autre astuce 
pour que les mots-clés entrés en 
français soient bien reconnus. Il 
faut savoir que quand vous tapez 
une ligne au clavier, celle-ci est 
analysée par une petite routine. 
Cette routine cherche tous les 
mots-clés du Basic pouvant s'y 
trouver et les remplace par leur 
code (un nombre compris entre 
128 et 255. Se référer au tableau 
1 ). Pour ce faire, la routine utilise 
une table donnant la liste des 
mots-clés (table située en ROM 
à partir de #COEA). Toute l'as¬ 
tuce réside dans cette table. La 
routine se chargeant d'analyser 
les lignes rentrées a été transfé¬ 
rée en RAM à la suite de la nou¬ 
velle routine de saisie de ligne. Il 
suffit donc de modifier certains 
octets de cette routine pour pou¬ 
voir utiliser une nouvelle table des 
mots-clés en RAM. Il suffira d'ini¬ 
tialiser cette table avec l'ortho¬ 
graphe des mots-clés en français. 
Mis à part sa simplicité, l'avan¬ 
tage de ce procédé est évident, 
cette nouvelle table pouvant 
occuper une longueur quelcon¬ 
que, les nouveaux mots-clés 
pourront, eux aussi, avoir une 
longueur quelconque, il suffira de 
respecter leur ordre dans la table 
(on les range par ordre de codes 
croissant). On pourra donc tra¬ 
duire le mot Basic "END" par 
"FIN” ou si vous le préférez, par 
"TERMINE” ou encore "FINI". 
En fait, seule limite à la longueur 
des mots sera votre courage pour 
taper les programmes ; il est en 


effet plus intéressant de taper 
"FIN” (3 touches) que "TER¬ 
MINE” (7 touches). Un autre 
impératif pour constituer cette 
table, le code ASCII de chacun 
des caractères devra avoir son 
code augmenté de 128. Ainsi, le 
mot "STOP” sera codé dans la 
table par les codes : 83(''S”), 85 
(code ASCII de "T"), 79 ("0”), 
208 (soit le code de "P”, aug¬ 
menté de 128). De plus, la fin du 
tableau doit être signalée par un 
octet nul. Ceci étant dit, lorsque 
vous écrirez un programme Basic 
avec la nouvelle routine de saisie 
de ligne, les instructions du pro¬ 
gramme ne seront stockées que 
par leur code (comme avec le 
Basic normal) et de ce fait, les 
programmes (et les lignes de 
commandes) que vous écrirez en 
Basic-Français pourront être exé¬ 
cutés de manière tout à fait nor¬ 
male sans aucun problème (puis¬ 
que la machine ne verra que le 
code des instructions et non le 
texte de celles-ci, il ne s'aperce¬ 
vra même pas que vous les avez 
tapés en français !). 

Pour terminer notre BASICOIS, 
deux choses restent à faire : 

— premièrement, rendre possible 
les listings et les éditions de pro¬ 
grammes (par la commande 
EDIT) en faisant apparaître le 
texte en français ; 

— deuxièmement, traduire les 
messages émis lors d'un CSAVE 
ou d'un CLOAD (messages appa¬ 
raissant sur la ligne des statuts). 
En effet, tel que nous avons 
abordé le problème, lors d'un 
LIST, le programme apparaîtra 
sous sa forme "anglaise" puis¬ 
que la routine LIST, qui est en 
ROM, utilise toujours la même 
table des mots-clés (celle figurant 
en ROM à partir de l'adresse 
#C0EA). La solution, bien sûr, 
consiste à transférer cette routine 
en RAM (ainsi que la routine cor¬ 
respondant à EDIT et LLIST) et à 
en modifier quelques octets de 
manière à ce qu'elle utilise notre 
table des mots français pour affi¬ 
cher le listing d'un programme (et 
alors les mots apparaîtront sous 
leur "forme française”). Un seul 
problème subsiste alors : com¬ 
ment, pour que quand nous tape¬ 


rons le mot LIST (ou LLIST ou 
EDIT), ce soit notre routine modi¬ 
fiée qui soit exécutée en non celle 
figurant en ROM ? Comment, en 
d'autres termes, redéfinir les 
mots-clés du Basic ? L'idéal serait 
que l'on puisse redéfinir ces mots 
un peu à la manière de la 
commande ! et de la fonction &. 
Cependant, ceci n'a pas été 
prévu par le concepteur du Basic 
de l'ORIC. Du moins, c'est ce qui 
est dit officiellement, car il y a un 
truc... C'est en effet là qu'inter¬ 
vient le point B dont nous parlions 
au début. En effet, chaque fois 
que l'interpréteur Basic veut lire 
un caractère pour l'exécuter (rap¬ 
pelons que les mots du Basic 
n'étant stockés dans un pro¬ 
gramme que par leur code, ils se 
comportent comme des caractè¬ 
res ASCII dont le code ASCII 
serait supérieur à 128 (caractè¬ 
res qui apparaîtraient donc en 
vidéo inversée sur l'écran s'ils 
étaient affichés tels quels), il 
passe en RAM par une routine 
spéciale appelée routine GET- 
CAR. Cette routine commence à 
l'adresse # E2 (son point d'entrée 
peut aussi être #E8 si l'on ne 
veut pas incrémenter le pointeur 
de texte Basic (E9, EA) avant de 
lire le caractère) et passe donc 
par le point B, en #EF. Là, il 
trouve un saut à une routine de 
la ROM ( # EA41 sur ORIC-1 et 
#ECB9 sur ATMOS) qui se 
charge de déterminer le type de 
caractère traité (chiffre, instruc¬ 
tion du Basic ou caractère nor¬ 
mal) et qui, selon le cas, posi¬ 
tionne les drapeaux du micropro¬ 
cesseur (comme par exemple le 
CARRY). De plus, lorsque ce saut 
est effectué, c'est l'accumulateur 
qui contient le code ASCII du 
caractère qui va être interprété. 
Ainsi donc, il suffit de modifier les 
octets #EF, #F0, #F1 pour obli¬ 
ger l'interpréteur à exécuter une 
routine spéciale. Cette routine se 
chargera de voir si le prochain 
caractère que l'on va interpréter 
correspond à une des instructions 
que nous voulons redéfinir. Si ce 
n'est pas le cas, il rendra la main 
à la ROM (en faisant un saut en 
# EA41 (ou # ECB9)). Mais, si 
c'est une des commandes que 
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Routine d'entrée (de saisie de ligne). Organigramme généra/ de BASIC FRANÇAIS. 



Routine de redéfinition des instructions du Basic. 
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nous voulons redéfinir, il ne ren¬ 
dra pas la main immédiatement et 
forcera l'exécution de la routine 
correspondant à cette commande 
modifiée. Comme à chaque fois 
que l'interpréteur veut lire un 
caractère, il devra passer par ce 
contrôle, chaque fois que nous 
utiliserons une commande redé¬ 
finie, c'est bien la routine modi¬ 
fiée qui prendra la main. C'est 
ainsi que nous allons modifier le 
LIST et EDIT et LLIST pour que 
nos programmes apparaissent en 
français. 

Dernier problème enfin : com¬ 
ment traduire les messages émis 
lors d'un CLOAD ou CSAVE ? Là 
encore, la méthode est simple. 
On réécrit le CLOAD et CSAVE 
en RAM de manière à ce qu'il 
puisse afficher les messages d'er¬ 
reur en français. Puis on redéfi¬ 
nit ces deux instructions avec le 
même truc que pour LIST. De 
plus, les CLOAD et CSAVE choi¬ 
sis sont ceux de l'ATMOS (débo- 
gué). Donc, sur ORIC-1, on 
pourra utiliser le CLOAD de l'AT- 
MOS et profiter de tous ses per¬ 
fectionnements (CLOAD'"',V : 
vérification des programmes que 
l'on vient d'enregistrer et 
CLOAD"",J : pour merger (ou 
fusionner) le programme en 
mémoire et celui sur cassette). 
De même, sur les premières 
séries de l'ORIC-ATMOS, ce pro¬ 
cédé permettra de supprimer la 
bogue du CLOAD (apparition 
intempestive du message "Errors 
found”, cf. THEORIC n° 3 : Bugs 
de l'Atmos). La même méthode 
a permis d'adapter les comman¬ 
des STORE et RECALL. En effet, 
sur ORIC-1 (ROM VI.0), ces 
deux commandes n'existent pas 
et les mots Basic de l'ATMOS : 
STORE et RECALL correspondent 
à INVERSE et NORMAL (d'ail¬ 
leurs inutilisés en ROM VI.0). Il 
a donc été nécessaire d'écrire les 
routines correspondant à ces 
deux commandes (routines de 
sadvegarde et de traitement des 
tableaux de variables) pour pou¬ 
voir les utiliser sans problème 
également sur ORIC-1. Ainsi, sur 
ORIC-1, vous disposerez désor¬ 
mais des mêmes facilités pour 
manipuler vos cassettes que sur 


ORIC-ATMOS. 

Tel que se présente maintenant 
notre BASIC FRANÇAIS, tous les 
messages sont traduits sauf les 
messages "d'avertissement” 
émis lors d'un INPUT (messages : 
" ?REDO FROM START" et 
"7EXTRA IGNORED"). En effet, 
il n'était pas nécessaire de les tra¬ 
duire, vu que d'une part, ils n'ar¬ 
rêtent pas l'exécution d'un pro¬ 
gramme et que d'autre part, si un 
tel message est généré, l'ordre 
INPUT est entièrement réexécuté 
et donc le TEXTE suivant- le 
INPUT est également affiché. 
Cependant, il est toujours possi¬ 
ble d'ajouter cette nouvelle pos¬ 
sibilité au programme en utilisant 
le même truc que celui utilisé 
pour les commandes CLOAD et 
CSAVE (transfert en RAM de la 
routine exécutant le INPUT 
commençant en #CCC9 sur 
ORIC-1 et # CD55 sur ATMOS 
puis modification de celle-ci pour 
utiliser des messages français... 
Le programme proposé est un 
programme en BASIC se char¬ 
geant d'implanter la routine à 
l'adresse QUE VOUS DESIREZ et 
de la reloger (on adapte les adres¬ 
ses de JSR et JMP suivant 
l'adresse d'implantation). Ce pro¬ 
gramme se charge aussi d'adap¬ 
ter la routine suivant le type de 
machine sur laquelle elle doit 
tourner (ORIC-1 ou ATMOS) ; 
ainsi, il n'y a pas de problème de 
compatibilité. Vous trouverez 
également, figure 4, un organi¬ 
gramme très général du pro¬ 
gramme BASIC-FRANÇAIS. 
Lorsque vous taperez le pro¬ 
gramme, il faut ABSOLUMENT 
respecter les lignes de DATA et 
les taper telles qu'elles se présen¬ 
tent. Cependant, vous pourrez 
supprimer les REM, car aucun 
saut ne se fait sur une telle ligne 
de remarque. A propos des 
DATA, vous constaterez leur 
organisation un peu particulière 
(au moins pour celles codant la 
routine). En effet, il ne "s’agit pas 
vraiment de DATA, mais plutôt 
d'un tableau de DATA. La routine 
est mise en DATA de manière à 
ce que l'on ait le moins de cho¬ 
ses à taper lors de la saisie du 
programme. En effet, certaines 


parties de la routine BASIC 
FRANÇAIS sont simplement des 
routines de la ROM légèrement 
modifiées. Le programme BASIC 
implantant la routine a été fait de 
telle manière que l'on n'ait pas à 
taper entièrement ces routines 
(puisqu'elles figurent déjà en 
ROM, il suffit de les recopier). 
Ceci explique la structure des 
DATA (cette structure est expli¬ 
quée dans les REM du pro¬ 
gramme). Organisé de telle sorte, 
il suffit d'une toute petite routine 
Basic pour implanter "intelligem¬ 
ment" la routine (lignes 100, 110 
et 1230/1250). 

Une fois que la routine sera 
implantée à l'adresse voulue (pré¬ 
voir une place suffisante de 
#1300 octets environ au mini¬ 
mum), le programme vous propo¬ 
sera de modifier certaines carac¬ 
téristiques du nouveau Basic : la 
longueur maximale des lignes 
Basic (initialisée à 255, vous 
pourrez ainsi retrouver la lon¬ 
gueur normale), le texte des mes¬ 
sages d'erreur, le texte des mes¬ 
sages émis lors des opérations 
cassettes, le texte des mots-clés, 
etc. En effet, comme BASIC 
FRANÇAIS figure en RAM, il est 
remodifiable à votre gré. Si vous 
ne désirez pas utiliser le BASIC 
FRANÇAIS, vous pouvez quand 
même utiliser le programme soit 
uniquement pour traduire les 
messages d'erreur (c'est un luxe 
appréciable que ' de voir la 
machine s'exprimer dans sa pro¬ 
pre langue) et pour bénéficier des 
perfectionnements apportés à 
certaines fonctions. En effet : 

— LIST, LLIST deviennent pro¬ 
grammables grâce à cette rou¬ 
tine ; 

— CLOAD et CSAVE sont entiè¬ 
rement débogués (si vous rece¬ 
vez le message "Errors found”, 
c'est que réellement il y aura eu 
des erreurs de chargement) ; 

— des lignes de longueur plus 
confortable ; 

— sur ORIC-1, les nouvelles 
commandes STORE et RECALL 
sont désormais utilisables avec la 
même syntaxe que sur ATMOS. 
Cependant, en Basic anglais, 
vous devrez utiliser les mots 
INVERSE (à la place de store) et 
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NORMAL (à la place de RECALL). 
Rappelons la syntaxe de ces deux 
commandes : 

- STORE XX, “nom de fichier" 

ou sur ORIC-1 désormais : 
INVERSE XX, sauve le 

tableau de variables de nom XX 
(ce tableau peut être alphanumé¬ 
rique, par ex.: STORE A 

“TEXTE"); 

- RECALL XX,“nom de fichier" 
ou sur ORIC-1 : NORMAL XX, 

sauve le tableau de nom 
XX. Il faut que ce tableau ait été 
dimensionné à la taille suffisante 
auparavant (sinon, on reçoit un 
message d'erreur du type “?OUT 
OF DATA”). 

A la fin de l'implantation et de la 
modification éventuelle des 
caractéristiques de BASIC FRAN¬ 
ÇAIS, vous pourrez sauvegarder 
la routine (la partie en L.M) dont 
le chargement sera nettement 
plus rapide que le programme 
Basic complet. Cependant, il est 
préférable de conserver aussi le 
Basic (afin de reloger ultérieure¬ 
ment la routine si besoin est). De 
plus, au moment du chargement 
de la routine en LM (si vous l'avez 
sauvegardée sans le Basic), il fau¬ 
dra initialiser le vecteur de la com¬ 
mandé “?" en mettant aux 
adresses # 2F5 et # 2F6 l'adresse 
de début augmentée de #AOB 
(par DOKE #2F5, adresse de 
début + # AOB). Des lors, vous 
accéderez au BASIC FRANÇAIS 
par : MF et au Basic anglais modi¬ 
fié par : !B. Cette initialisation est 
automatiquement faite par le pro¬ 
gramme Basic implantant la 
routine. 

Enfin, pour terminer, la liste des 
traductions données pour chacun 
des messages ainsi que la liste 
des nouveaux mots-clés vous 
sont données figure 2 et 3. Et 
maintenant, même si vous 
n'achetez pas français, PRO¬ 
GRAMMEZ FRANÇAIS ! 


Les adresses ci-après sont les 
adresses relatives (par rapport à 
l'adresse d'implantation) des 
principales routines de BASIC 
FRANÇAIS. Pour retrouver 


l'adresse réelle de la routine, il 
suffira d'ajouter à l'adresse d'im¬ 
plantation l'adresse relative don¬ 
née. 

710 : routine LIST modifiée. 
7E0 : routine EDIT modifiée. 
7C1 : routine LLIST modifiée sur 
ORIC-1. 

7C5 : routine LLIST modifiée sur 
ORIC-ATMOS. 

328 : routine CLOAD modifiée. 
Cette routine utilise également 
quelques routines utilitaires pour 
toutes les opérations à effectuer 
(affichage d'un message sur la 
ligne des statuts, écriture de l'en¬ 
tête, etc.). 

331 : routine CSAVE modifiée. 
3EA : routine STORE modifiée. 
Après cette routine, se trouvent 
d'autres routines utilitaires (mani¬ 
pulation des tableaux de varia¬ 
bles, par exemple). 

E43 : routine RECALL. Les rou¬ 
tine STORE et RECALL sont ins¬ 
pirées de celles figurant dans la 
ROM de l'ATMOS afin qu'il soit 
possible d'utiliser les fichiers déjà 
enregistrés avec le Basic normal. 
409 : entrée au Basic français 
(traduction des messages d'er¬ 
reur affichés ou éventuellement 
du message “Break"). 

A03 : entrée au Basic anglais 
modifiée (en fait, il s'agit de l'en¬ 
trée à la routine de saisie de ligne, 
donc le BASIC FRANÇAIS passe 
aussi par cette adresse. 

6A2 : détournement de l'interpré¬ 
teur pour redéfinir les comman¬ 
des de la ROM (en fait, il s'agit 
d'une routine d'aiguillage vers les 
routines se chargeant d'exécuter 
les commandes redéfinies). 

AOB : routine se chargeant d'exé¬ 
cuter la commande “!“ permet¬ 
tant de passer d'un Basic à l'au¬ 
tre. Cette routine utilise une table 
de conversion des messages 
située en A8E (cette table donne 
les adreses à modifier pour pas¬ 
ser du BASIC au BASIC FRAN¬ 
ÇAIS ainsi que les valeurs à met¬ 
tre dans ces adresses). 



0 REH===*===*========================== 

1REH* 

2 REH* 8ASIC-FRANCAIS 

3 REM* 

4 REH* 

5 REH* 

6 REH* (C) Pierre CHICOURRAT 

7 REH* = 

8 REH********************************** 
10 TEXT:PAPERO;INK2:CLS:S» *CHR»(4)+CHR» 

(17)+■BASIC-FRANCAIS 1 +CHR»I16)+CHR4(7) 

20 F0R1=1ÏOLEN(S*):P0KEHBB7F+I,ASC(HID» 
CS$,1)):NEXT:G0SUB1430 
30 PRINTCHR»112): PRINT ; PRINT : PRINTCHR«( 
4)SPC(S)CHRJ(27)'A"CHR»(27)*NBASIC-FRANC 
AlS"CHR$(4i 

40 PR 1 NT : FR I NT : PR INTSPC (14) CHR$ ( 96 ) * P 
ierre CHICOURRAT" 

50 PRINT : PRI HT : PRI NT : PR 1 NT" ADRESSE D'IH 
PLANTATION DE LA ROUTINE" 

60 PRINT"(PREVOYEZ UNE PLACE SUFFISANTE 
)":INPUTAD:DOKE*306,IFFFF 
70 REH==*==============*=============== 

30 REH* IMPLANTATION DE LA ROUTINE = 
90 REH======================= ï= ======== 

100 READU»:IFUt="]"THENGOSUB1260:GOT010 

0 

110 IFUi="C"THENGOSUB1240.'GOT0100 
120 REH================================ 

130 REH* ADAPTATION DES ADRESSES 

140 REH*ET INITIALISATION DES VARIABLES 

150 REH=SYSTEHES DE LA ROUTINE 

160 REH=====*========================== 

170 PRINT : PRINT * ADAPATATION DES ADRESSE 
S DE LA ROUTINE":PRINT 
180 DOKEO,AD+#126A: IFPEEK(0)OOTHENPOKE 
CL» 0 : P0KE1 ,PEEK( 1 )+1 

190 T=DEEK(0]: AI=T+#110 :REPEAT:READU$: U 
=VAL(" I “ +U»)+AD: IFUI O" f THENDOKEU,T 
200 UNTILU»*"*" : REPEAT : READU« :U=VAL CI" 
♦Ut)+AD:IFU» O" t "THENREADV:DOKEU,T+V 
210 UN?ILU$=‘ï" 

220 REPEAT:READUI : U*VAL("*"+U»): V*AD+U: 
IFU»="*"THEN240 

230 POKEV,PEEK(V)♦1 :IFU>I9A1THENP0KEV,P 
EEK(V)-2 
240 UNTILU»=’t" 

250 POKEAD+H9F5,PEEK(11-1:P0KEAD+I9DE,P 
EEK(l) 

260 REPEAT:READU»,V»: U*VAL("*"+U<)+AD: V 
=VAL("#"+V»HAD 
270 IFV»O’t"THENDOKEU,V 
230 UNTILV»=T 

290 REPEAT:READU»,V».U=VAL(■ l’+U» )+AD:V 
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=VAL(”*”m)4AD:DOKEO,V 
300 IFV$O ■ t'THENPOKEU,PEEK(0 i :POKEU+2, 
PEEK(l) 

310 ÜNTILV»=T 

320 T=PEEK(#FFFE)=40 : REM DRAPEAU POUR £ 
AVOIR SI ORIC-1 OU ATHOS 
330 REPEAT:READU».V* IFNOT T THEN V» 

=¥1 

340 U=VAL( "l”+U* >+AD; V^VALI T+V» ) ; 1FV* 
<>’l”THENDOKEU,V 
350 UNTILV*=**“ 

360 REPEAT:READU »,V :U=VAL(“« *+U» ) +AD : ! F 
U$<>"t'THENPOKEU,V 
370 UHTILUI=T 

380 I=AD+»A8E:REPEAT:READU*,V»,8» :U=VAL 
(”t”»U»)*AD:V=VAL('l”+V»)+AD 
390 ¥=VAL( ”I'♦¥! > +AD: IFU»O*t”THENDOKEI 
,U ;DOKEI+2,V :DOKE1+4,8 
400 1=1+6:UNTILUt="*“ 

410 DOKEO,AD*I4A5:POKEAD+I410.PEEK(O):P 
0KEAD>I414,PEEK(1I 
420 IFPEEK(IFFFE)<'40THEN470 
430 POKEAD*I78F,96:DOKEAD+I7B4,AD+I7A6: 
DOKEADtl78F,AD+»7B6:DOKEAD+l7CD,ADt#710 
440 D0KEAD+I7FD,AD+I736:D0KEAD+*7E1,IE7 
9D : DOKEADH806,16868 : LI =AD*«710 
450 DOKEAD+I814.AD+I9D5 
460 LL=AD*i7Cl : ED=AD+I7E0 :DOKEAD+IA8B.A 
D+I7A3:DOKEAD+IA88,AD+I79F:GOTO500 
470 POKEAD+1793,96 :DOKEAD+I7B8,AD+I7AA: 
DOKEAD+I7C3,AD+I7BA:DOKEAD+I7CF,AD + I7l0 
430 DOKEAD+I7EC,AD+1734:LI=AD+*710 :DOKE 
AD+I7FC.AD+I9D5 

490 LL=AD+*7C5:ED=AD+*7E0:EOKEAD+IA88,A 
D+#7A3 : DOKEAD*#A8B, ADM7A7 
500 I=AD+i6DF:DOKE1,I8EBC: COKE I+2,»B68! 

:DOKEI+4,I82B7;DOKEI+6,#9983 :DOKEO,LI 
510 L=12B0:1=AD+*6EF:G0SUBL:DOKEO,LL : GO 
SUBL:DOKEO,ED :GOSUBL:DOKEO,AD+1328 
520 GOSUBL:DOKEO.AD+1331 :GOSUBL:DOKEO,A 
D+IE3A:GOSUBL:DOKEO,AD+IE4 3 :GOSUBL 
530 DOKEO,AD+I112E:GOSUBL:FOKEAD»t1145, 
22" 

340 I=AD*IAB8:REPEAT:READU»: FORJ=1TOLEN 
(Ut):U=ASC(MID»(U»,J)):POKEJ*I,U:NEXT 
550 POKEI+LENIU»),U+128:I=I+LEN(Ut):UNT 
1LU *=* GO":DOKE1 + 1,0 

560 I=AD+IAB8:DOKEO,I :POKEAD+IA7E.PEEK( 
0 > POKEAD+*A80,PEEK <1> 

570 DOKEI2F5,AD+iAOB:DOKEI306.12710 
580 PRINT : PRINT"BAS1C FRANÇAIS EST 1MPL 
ANTE” 

590 PR INT-VOUS DISPOSEZ DESORNAI S DE LA 
POSSI-* 

600 PRINT-B1LITE D ECRIRE DES NOTS EN F 
RANCAIS' 

610 PRINT:PRINT"POUR ACCEDER AU BASIC F 
RANCAIS:■: PRINTSPC*5 »‘TAPE2 : 'F* 

620 PRINT"POUR REVENIR AU BASIC NORMAL: 
■;PRINTSPC(51-TAPEZ : 1 B“'PRINT 
630 PRINT-DE PLUS VOUS DISPOSEREZ DE CO 
AMANDES' 

440 PRINT'LEGEREMENT MODIFIEE:“ 

650 PRINT"- CLOAD,CSAVE,STORE,RECALL S 


YN7AXE':PRINÎSPCi ÎO'DE L’ATMOS DEBOGUE* 
660 PRINT”- LIST ET LLIST DEVIENNENT PR 
OGRAMHA ” : PR I NT ‘ BLES-; PR I NT : PR ! NT 
670 PRINT'- LES LIGNES PEUVENT AVOIR JU 
SGU'A" :PRINTSPC(3>”256 CARACTERES DE LOI! 
G.VPRINT 

680 PRINT'Tdpez une touche’:POKEI2DF,0: 
GETRt CLS 

690 PRINT'VOULEZ-VOUS MODIFIER CERTAINE 
S“: PRINT'CARACTERIST IQUES DU NOUVEAU BAS 

IC." 

700 PRINTSPC-t 10)-103/CNI l >” 

710 POKEI2DF.Û GETR* : I FR *=" N * THENC-LS : GO 
TC 1130 

720 1 FR* O’O"TKENPING:G3T0710 

730 REH==================-============ 

740 REM=MODirICAÎION DE 9AS1C-FRANCAIS= 
750 REM===^=™-===================== 

760 CLS PRINT.PSINTCHRt•4)SPC(4!CHR*(27 
)*N-CHR»i27)-ABASIC FRANÇAIS MODIFICATIO 
NE” 

770 PRINTCHRt(4).PRINT :PRINT”VOULEZ-VOU 
S MODIFIER :” 

780 PRINT"! : LA LONGUEUR MAXIMALE DES 
LIGNES”:PRINTSPC(4)”BASIC” 

790 PRI NT"2 : LES MESSAGES LORS DES OPE 
RATIONS":PR!NTSPC(4)'CASSETTES” 

800 PR!NT"3 : LES MESSAGES GENERAUX (’P 
eady” :PftINTSPC(4)-MESSAGES D’ERREURS,..e 
tc..° 

810 PRINT-4 ' LE TEXTE DES MOTS CLEF”.P 
R1NT”5 : FIN DE MODIFICATION” 

820 POKE»2DF,0 :GETRt;R=VAL(Rt): IFR<1 ORS 
>3ÎHENPING:GOTO820 
830 ON R GOTOSBO,950,1010,1100,1130 
840 REM 111 ™"” 1 —""——"""”— 1 
350 REM= MODIFICATION LONGUEUR MAXIMALE 
360 REM= DES LIGNES BASIC 
870 REM— 

880 INPUT”NOUVELLE LONGUEUR MAXIMALE" L 
:L=INT(AB5(L)):!FLI2350RL<4THENS80 
890 POKEAD+I9AB,L:P0KEAD*»"B6.L-3:G0T07 
60 

900 REM=====— 

410 R£M= MODIFICATION DES MESSAGES = 
920 REM= EMIS LORS DES OPERATIONS SUR= 
«30 REN= CASSETTE 

940 REM--==-=--=-™---===”” 
550 Bt=”A90A96A9CAA2AA3AAEAB4 r :FORK=1T0 
LEN' 6» !STEP3 T=AD+VALfl'»NIDt(Bi,F,31) 
«6C L=DEEKiT) GOSUB1400 : FR INT MC=0 I=AI 
: DOSE?•: :GOSUB! 290 ; AI=I ;NEXT:GOTO760 
970 REM”=====™==™""=“=”" 
«80 REH= MODIFICATION DES MESSAGES = 
990 REM= GENERAUX = 

1000 REH—s—========================== 

1010 PRINÎ:PRINT:T=AD+I43C:POKEO,PEEK(T 
i:POKE:,PEEK(T+2):T=DEEK(0) 

1020 DOKE2,AI :POKEAD+I43C.PEEK(21 :POKEA 
D»I43E,PEEK(3!:F0RK=1T020:L=T : GOSUB1400 
1030 T=L+î:I=AI:MC=0:GOSUB1290:AI=I:NEX 
T:5*=-49849E402”:FORK=iTOLEN(B*)STEP3 
1040 A-VALt"d"+HlDt:B*,K,3))+AD:L=PEEK< 


A)♦25>*PEEK(A+2);GOSUB1400 :MC=0:I=AI 
1050 DOKEO.AI :POKEA,PEEK(0):POKEA*2,PEE 
K(1) GOSUB1290 :NEXT:GOT0760 
1060 R£M=======================—====== 

1070 REM= MODIFICATION DE TEXTE DES 

1090 REM= MOTS CLEFS 

1090 REM==="========================== 

1100 LMCOEA : DOKE'O, AI : POKEAD+IA7E. PEEK ( 
Oi:POKEAD+IA80,PEEK(1):FORK=1T0120 
1110 GOSUB1400: I=AI :KC=-1:INPUT'NOUVEAU 
MOT-■A*:GOSUB1350 :NEXT:DOKEA1,0 :AI=AI*2 
1120 GOTO760 

1150 CLS:FRI NT”VOULEZ-VOUS SAUVER LA VE 
RS ION":PR INT”ACTUELLE DE BASIC FRANÇAIS 

ici/in:" 

1140 POKE42DF,0:GETRt:IFR»=”N”îh'ENEND 
1150 IFRtO’O’THENl 140 
1160 REH======— 

1170 REM= SAUVEGARDE DE LA ROUTINE 

! 180 REM=============================== 

1190 PRINT'VITESSE CS3/CFI”:GETR*:PRIN 
TR»; IFR»O *S”ANDRt O"F'THENl190 
1200 POKE770,7 : FORI=OTC>2000 : NEXT 
1210 I FR *=* S”THENGSAVE”BASIC FRANÇAIS”, 
AAD.EAI, S'.GOTOI 230 
1220 CSAVE"BASIC FRANÇAIS”.AAD.EAI 
1230 PR!NT"AU REDEMARRAGE:FA IRE DOKEI2F 
5,’HEX»(AD*»A0B):PR!NT'END 
! 240 READU*:J=VAL(”*”*U»)+AD:READU»,V», 
Ut.Z*:IFPEEK'»FFFE)=40THENUt=Wt:Vt=2» 
1250 U=VflL< *r+Ut) :V=VAL(’«”*V*):FORI=U 
TGV POKE111-U,PEEK(I)'NEXT:RETURN 
1250 READU»:J=VAL("I"+U*)+AD:REPEAT:REA 
DU» :'J-VALi’t"+Ut), PCKEI, U : J= M 
1270 UNIIUJt=”t” RETURN 
1230 POKEI.FEEK'Oi ,POKEM6,PEEK(1): 1=1 
+1 RETURN 

.290 A » -'”'POKEI2DF,0 : PRINT”NOUVELLE TR 
ADUCTION 'CTRL X POUR FINI” 

1300 GETRt'I FS»=GHR»1127 :THENGOSUB1380 : 
GOTO!300 

13:0 PRINTR» .IFR*=CHR»(2ClTHEN1300 

1320 A*=At+Rt IFR» <’>CHR» (24 ) THEN1300 
1330 PRINT:PR:NÎ”CHAINE : * A * : PRI NT”COD 
ES ASCII : *':FORI=1TOLEN(A»I:PRINTASC(MI 
Dt A», I >.' : NEXT 

1340 PR INT”OK ’ [OI/IN1 «”:GETRt; IFR* 
=*N“THEN1290 EL3E IFR* O •C" THEN1340 
1350 F0RJ=1T0LEN(A*>:POKEI+J-l,ASC(MID* 

! A»,J)):NEXT: I=I»LEN! A»1M:POKEI-1,0 
1360 IF MC THEN 1=1-1 :POKEI-1,PEEK(11+1 
28 

1370 PRINT:RETURN 
1380 IFA»=”"THENRETURN 
1390 A*=MID*(A»,1,LEN(A*)-1):PRINTR»::R 
ETURN 
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1400 REPEAT:PRINTCHRt(PEEK(L)); :L=L+1 : U 
NTILPEEK(L>=OORPEEK(L>>128 
1410 IFL=128THENPRINTCHR*(L) ELSEPRINT 
1420 RETURN 

1430 A=iECB9:B=ICCB0:IFPEEK(«FFFE)=40TH 
ENA=«EA41:B=ICBED 

1440 D0KE*F0,A :DOKEt1B,B : POKE#1A,76 :RET 
URN 

1450 REH==s~==s===*==== ïssss ==== s === ss 
1460 REH= DftTflS DE LA ROUTINE ' = 

1470 REH==««=«~«««™===™™“ 

1480 REM 
1490-REM 

1500 REH SYNTAXE DU TABLEAU DE DATAS: 
1510 REH LA ROUTINE S'IMPLANTE EN PLUSI 
EURS MORCEAUX 

1520 REH CHACUN DES MORCEAUX EST REPRES 
ENTE DANS LE TABLEAU DE DATAS 
1530 REH DE LA MANIERE SUIVANTE : 

1540 REM - UNE DONNEE D'IDENTIFICATION 
DU MORCEAU 

1550 REH CETTE DONNEE INDIQUE SI LE HOR 
CEAU A IMPLANTER EST UNE ROUTINE 
1560 REH DONT ON DONNE LES CODES HEXA ( 
31 OU UNE ROUTINE MODIFIEE DE LA ROM 
1570 REH (L'IDENTIFICATEUR EST ALORS 0 
1580 REM - PUIS L'ADRESSE RELATIVE A LA 
QUELLE DOIT ETRE IMPLANTEE LA ROUTINE 
1590 REH ON TROUVE L'ADRESSE REELLE D'I 
«PLANTATION DE LA ROUTINE EN AJOUTANT 
1600 REH A CETTE ADRESSE RELATIVE L'ADR 
ESSE D'I«PLANTAI ON DU PROGRAMME 
1610 REM- PUIS ENFIN LA ROUTINE ELLE H 
EHE,C'EST A DIRE LES CODES HEXA OU 
1620 REH L'ADRESSE DEBUT,FIN DE LA ROUT 
I NE DE LA ROM A TRANSFERER EN RAM 
1630 REM (ADRESSE SUR ATHOS PUIS SUR OR 
2000 DATAJ.O 

2010 DATA08,20,18,53,AD,AD,02.0D,AE,02, 
Dû,OA,AD,5A,02,FO,08,AD,5B,02 
2020 DATAF0,03,4C,E4,CF,2D,CA,E6,20,57, 
51,20,61,51,2C,AE,02,70,F8,AD 
2030 DATA5A,02,FO,2C,AD,AE,02,DO,EE,A5, 
9C,A4,9D,38,E9,02,BO,01,88,8D 
2040 DATAA9,02,8C,AA,02,38,E5,9A, AA,98, 
E5,9B,A8,!8.8A,6D,AB,02,8D.AB 
2050 DATA02,98,6D,AC,02,8D,AC,02,20,BB, 
51,20,C8,51,20,04,E8,28,AD,5B 
2060 DATA02.F0,! 1 ,AE,5C,02,AD,5D,02,20, 
Cl,E0,A9,16,AO,52,20,ED,CB,60 
2070 DATA20,04,52 - AD,AE,02,F0,OE,AD,AD, 
02,FO,08,AD,B1,02,EA,EA,6C,A9 
2080 DATA02,60,AE,AB,02,AD,AC,02,86,9C, 
85,9D,20,6F,C5,AD,AD,02,FO,08 
2090 DATAAD.B1,02,EA,EA,4C,33,C7,20,33, 
C7,4C,B8,C4,4C,E4,CF,A9,00,8D 
2100 DATA4D,02.8D,AD,02,8D,AE,02,8D,5B, 
02,8D,5A,02,8D,5C,02,8D,5D,02 
2110 DATA8D.B1,02,20,8B,CE,24,28,10,DC, 
20,15,D7,AA,AO,00,E8,CA,FO,OA 
2120 DATAB1,91,99,7F,02,C8,CO,10,D0,F3. 
A9,00,99,7F,02,20,E8,00,FO,61 
2130 DATAC9.2C,DO » BA,20,E2■00,FO,58,C9, 
2C,F0,F7,C9,C7,D0,05,8D,AD,02 
2140 DATABO,EE,C9,53,DO,05.8D.4D,02,BO, 


E5.C9,j 6,D0,05,8D,58,02,B0,DC 
2150 DATAC9,4A, DO,05,8D,5A,02,BO.D3,C9, 
41,FO,04,C9,45,DO,29,85,OE,20 
2160 DATAE2,00,A2,80,8E,AE,02,20,9D,E7, 
A5,33, A4,34, A6, OE, EO, 41, DO, 08 
2170 DATA8D,A9,02,8C,AA,02,BO,A3,8D,AB, 
02,8C,AC,02,4C,EB,50,60,4C,E4 
2180 DATACF,EA,EA,20,63,E5,A9,03,AO,E5, 
4C, 76,E5,20,96,E6,20,30,E6,C9 
2190 DATA24,D0,F9,8E,B1,02,A2,09,20,30, 
E6,9D, A7,02, CA, DO, F7,20,30, E6 
2200 DATAF0,0A,E0,IO,BO,F7,9D,93,02,E8, 
DO,Fl,9D,93,02,20,95,51,20,9C 
2210 DATA51, 8A ,DO ,CD, 60,20,45,53 ,EA, 4C, 
C2,51,AO,00,A2,00,AD,7F,02,FO 
2220 DATAIS,B9,7F,02,D9,93,02,FO,01,E8, 
99,93,02,C8,CO,11,BO,04,48,68 
2230 DATADO,EB,60,20,63,E5,20,36,52, EA, 
20,76, E5.4C.il, 52,AD,A9,02,AC 
2240 DATAAA.02,85,33,84.34,AO,00.20,30, 
E6,AE,5B,02,D0,05,91,33,4C,ED 
2250 DATA51,D1,33,F0,08,EE.5C.02,D0,03, 
EE,50,02,20,F3,51,90,E2,60,A5 
2260 DATA33,CD.AB,02,A5,34.ED,AC,02,E6, 
33,DO,02,E6,34,60,AD,Bl,02,FO 
2270 DATA07,A9,89,AO,52,20,ED,CB,60,A9, 
93,E8,E8,E8,AO,02,4C,55,52,20 
2280 DATA20,20,56,65,72,69,66,79,20,65, 
72,72,6F,72,73,20,64,65,74,65 
2290 DATA63,74,65,64,2E,00,AD,5B,02,DO, 
05,A9,12,AO,E5,60,A9,45,AO,52 
2300 DATA60,10,07,56,65,72,69,66,79,69, 
6E,67,20,2E,2E,00,00,20,36,F4 
2310 DATAE8,AO,OO,8C,5F,O2,AD,AE,O2,F0, 
I3,C8,2C,AE,02,30,0D,C8,2C,AF 
2320 DATA02,30,07,C8,2C, BO, 02,30,01, C9, 
B9,84,52,8D,5E,02,A9,5E,AO,02 
2330 DATA20,36,F4,60,42,43,53,49,52,65, 
72,72,6F,72,73,20,66,6F,75,6E 
2340 DATA64,2E,00,A5,9A,A4,9B,BD, A9,02, 
8C,AA,02,A5,9C,A4,9D,8D,AB,02 
2350 DATA8C,AC,02,08,20,18,53,AD,5A,02, 
0D,5B,02,F0,03,4C,E4,CF,20,CA 
2360 DATAE6,20,CB,52,20,DA,52,20,01,53, 
20,04,E8,28,60,20,63,E5,A9,BC 
2370 DATAAO,E5,20,76,E5,A9,7F,4C,13,52, 
20,BA,E6,A9,24,20,C6,E5,A2,09 
2380 DATABD,A7,02,20,C6,E5,CA,DO,F7,BD, 
7F,02,F0,06,20,C6,E5,E8,D0,F5 
2390 DATA20,C6,E5,A2,00,CA,DO,FD,60,AD, 
A9,02,AC,AA,02,85,33,84,34,AO 
2400 DATAOO.Bl,33,20,C6,E5,20,F3,51,90, 
F6,60,20,Bl,50,A5,67,48,AD,4D 
2410 DATA02,85,67,68,8D,4D,02,60,20,00, 
50,20,IB,53,4C.E8,00,20,97,52 
2420 DATA20.1 B,53,4C,E8,0.0,20,20,46,6F, 
75,6E,64,20 >2E,2E,00,20,63,E5 
2430 DATAA9.3A,AO,53,60,10,07,53,65,61, 
72,63,68,69,6E,67,20,2E,2E,00 
2440 DATAI0,07,4C,6F,61,64,69,6E,67,20, 
2E,2E,00,10,07,53,61,76,69,6E 
2450 DATA67,20,2E,2E,00,20,20,20,45,72, 
72,65,75,72,73,20,64,65,20,76 
2460 DATA65,72,69,66,69,63,61,74,69,6F, 
6E,20,64,65,74,65,63,74,65,65 


2470 DATA73,2E,00,20,20,45,72,72,65,75, 
72,73,20,64,65,20,63,68,61,72 
2480 DATA67,65,6D,65,6E,74,20,72,65,70, 
65,72,65,65,73,2E,00,10,07,4A 
2490 DATA65,20,63,68,65,72,63,68,65,20, 
2E,2£,00,10,07,4A,65,20,63,68 
2500 DATA61,72,67,65,20,2E,2E,00,10,07, 
4A,65,20,76,65,72,69,66,69,65 
2510 DATA20,2E,2E,00,10,07,4A, 65,20,73, 
61,75,76,65,20,2E.2E,00,10,07 
2520 DATA4A,65,20,74,72,6F,75,76,65,20, 
2E.2E.00 

2530 DATAAO,03,A2,00,86,00,A9,9C,85,01, 
A9,50,85,02,AI,01,F0,1A,D1,12 
2540 DATADO,06,20,95,50,C8,DO,F2,AO,03, 
20,95,50,Al,01,DO,F9,20,95,50 
2550 DATAE6,00,DO,E2,A6,00,EO,14,F0,5C, 
A9.IE,AO,51,85,01,84,02,AO,00 
2560 DATAE8,CA,F0,14.B1,01,D0,0B,E6,01, 
DO, F5 ,E6,02, DO, Fl, E6,01, DO, FO 
2570 DATAE6,02,D0,EC,A9,OE,20,12,CC,A9, 
0D.20,12,CC,A6,00,A9,3F,E0,13 
2580 DATADO,02,A9,2O,2O,12,CC,A5,01,A4, 
02,20,ED,CB,A6,00,EO,13,FO,07 
2590 DATAA9,83,A0,52,20,ED,CB,A4,A9,CB, 
FO,OA,A9.8B,AO,52,20,ED,CB,20 
2600 DATABD,E0,A9,90,A0,52,4C,ED,CB,E6, 
01,DO,02,E6,02,60,4E,45,58,54 
2610 DATAOO,53,59,4E,54,00,52,45,54,55, 
00,4F,55,54,20,4F,46,20,44,00 
2620 DAÎA49,4C,4C,45,00,4F,56,45,52,00, 
4F,55,54,20,4F,46.20,40,00,55 
2630 DATA4E,44,45.46,27,44,20,53,00,42, 
41,44,20,53,00,52,45,44,49,00 
2640 DATA44,49,56,49,00,49,4C,4C,45,47, 
55,41,4C, 20,44,00,54,59,50,45 
2650 DATAOO,53,54,52,49,00,46,4F,52,4D, 
00,43,41,4E,27,54,00,55,4E,44 
2660 DATA45,46,27,44,20,46,00,42,41,44, 
20,55,00,44,49,53,50,00,42,52 
2670 DATA45,41,4B,00,00,00,53,55,49,56, 
20,53,41,4E,53,20,50,4F,55,52 
2680 DATAOO,53,59,4E,54,41,58,45,00,52, 
45,54,4F,55,52,20,53,41,4E,53 
2690 DATA20,53,50,52,4F,47,00,50,4C,55, 
53,20,44,45,20,44,4F,4E.4E, 45 
2700 DATA45,53,00,51,55,41,4E,54,49,54, 
45,20,49,4E,54,45,52,44,49,54 
2710 DATA45,00,54,52,4F,50,20,47,52,41, 
4E,44,00,4D,45,4D,4F,49,52,45 
2720 DATA20,50,4C,45,49,4E,45,00,4C,49, 
47,4E,45,20,49,4E,45,58,49,53 
2730 DATA54.41,4E,54,45,00,4D,41,55,56, 
41 ,49,53,20,49,4E,44,49,43,45 
2740 DATAOO,54,41.42.4C,45,41,55,20,44, 
45,4A, 41,20,44,49,4D, 45,4E, 53 
2750 DATA49,4F,4E,4E,45,00,4 4,49,56,49, 
53,49,4F,4E,20,50,41,52,20,5A 
2760 DATA45,52,4F,00,4D,4F,44,45,20,44, 
49,52,45,43,54,20,49,4E,54,45 
2770 DATA52,44,49,54,00,54,59,50,45,20, 
44,45,20,50,41,52,41,4D,45,54 
2780 DATA52,45,20,40,41,55,56,41,49,53, 
00,43,48,41.49.4E,45,20,54,52 
2790 DATA4F,50,20,4C,4F,4E,47,55,45,00, 


27 





46,4F, 52,4D,55,40,45,20,54,52 
2800 MTMF,50,20,43,4F,4D,50,40,45,58, 
45,00,4A.45,20,4E,45,20,50,45 
. 2810 DAT655,58,20,43,4F,4E,54,49,4E,55, 
45,52,00,46,4F,4E,h3,54,49,4F 
2820 D6T64E,20,4E,4F,4E,20,44,45,46,49, 
4E,49,45,00,46,55,53,51,55,20 
2830 DATA53,41,4E,53,20,52,45,50,45,54, 
45,00,4D,4F, 44,45,20,44,27,41 
2840 D6TA46,46,49,43,48,41,47,45,20,4D, 
41,55,56,41,49,53,00,41,52,52 
2850 DAT645,54,00,20,45,52,52,45,55,52, 
00,20,45,4E,20,00,0D,06,50,72 
2860 D6T665,74,0D,06,00,t 
2870 D6T63,820 

2880 DAT666 ,E9,60,04,84,26 ,BD ,00,71 ,C9, 
20,FO,42,85,25,C9,22,FO,61,24 
2890 DAT626,70,38,C9,3F,D0,04,69,B6,DO, 
30,C9,30,90,04,C9,30,90,28,84 
2900 DAT6E0,60,00,84,26,69,E9,85,18,69, 
00,85,19,86, E9,06, ET8, E6,18, DO 
2910 D6T602.E6,19,BD,00,71 ,38,F1,18,F0, 
Fl,09,80,DO, 30,05,26,64,E0.E8 
2920 D6T6C8,99,00,70,09,00,70,FO,3B,38, 
E9,36,FO,04,09,57,DO,02,85,26 
2930 D6T638,E9,63,D0,9D,85,25,BD,00,71, 
FO,DF,05,25,FO,DB,08,99,00,70 
2940 D6T6E8,DO,FO,66,E9,E6,26,B1,18,08, 
E6,18,D0,02,E6,19,28,10,F4,B1 
2950 D6T618,DO,BO,BD,00,71,10,B9,99,02, 
70,60,06,EO,FF,DO,01,60,68,68 
2960 D6T64C,59,61,66,68,BD,49,61 ,68,8D, 
46,61,86 
2970 DATA*,3,945 

2980 D6T662,05,B5,2F,9D,FF,6F,C6,D0,F8 
2990 D6T6*,1,960 

3000 D6T6AD ,46,61,48,60,49,61,48,60,00, 
55,6D,05,62,FO,FO,60 
3010 D6T6*,],9CB 

3020 D6T6A0,00,98,9D,00,71,66,4C,99,CB, 
4E,Fl,02,20,57,61,62,00,60,71 
3030 DAT636,E9,84,E6,20,E8,00,A6,F0,EC, 
62,FF,86,69,90,OE,20,00,60,62 
3040 DAT604,60,70,86,E9,84,E6,4C,DD,C8, 
20,98,60,4C,B5,61,20,ED,CB,68,68,4C 
3050 DATAI,],60B 

3060 D6T620,ES,00,62,02,C9,46,FO,07,C9, 
42,FO,01,60,62,04,86,04,20,E2 
3070 D6T600,E6,E6,E6,69,8E,62,46,85,00, 
86,01,62,07,64,04,Bl,00,48,C8 
3080 D6T6B1,00,48,60,00,Bl,00,85,02,C8, 
Bl,00,85,03,68,60,02,91,02,68 
3090 D6T6A0,00,91,02,65,00,18,69,06,85, 

00,65,01,69,00,85,01,C6,DO,D2 
3100 D6T664,04,69,09,62,44,CO,02,FO,04, 
69,03,62,46,85,IB,86,IC,69,62 
3110 D6T6A2,46,85,F0,86,F1,69,E9,62,C0, 
CO,02,DO,04,69.B8,62,46,8D,4E 
3120 D6TA48,8E,52,48,8D,9F,47,8E,63,47, 
60 

3130 DATAI,[,8CD,C4D3,C546,C4E3,C556,t, 
971, C58C, C5C0, C59C, C5D0 
3140 D6T61,94F,C54B,C55B,C55B,C56B,[,96 
9,C5C3,C5E4,C5D3,C5F4 
3150 D6T61,710,C748,C806,C773,C831 


3160 DATAC,7E0,C692,C6B2,C665,C6DD 
3170 DAT61,662 

3180 DAT68E,6C,50,8D,6B,50,A2,00, BD, 3B, 
50, FO, 25, E8 ,CD, 6B, 50, DO, F5 ,C6 
3190 DATABD,4B,50,8D,2D,50,BD,5B,50,8D, 
2E, 50, E6, E9, DO, 02, E6, EA, 6E, 6C 
3200 DATA50,20,EB,00,20,00,00,4C,E8,00, 
6D,6B,50,6E,6C,50,4C,41,EA,00 
3210 DAT600,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00,00,00 
3220 DAT600,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00,00,00 
3230 D6T600,00,00,00,00,00,00,00,00,4 
3240 D6T61.CC5 

3250 DAT662,23,6C,C0,02,BD,D9,4C,CO,03. 
DO, 02,69,40,9D,7F,BB,CA,DO,F1 
3260 D6T660,04,11,42,41,53,49,43,20,46, 
52,41,4E,43,41,49,53,07,10,20 
3270 D6T620,20,20,20,20,20,20,20,20,20, 
20,20,20,20,20,20,20 
3280 D6T6*,J,DOO 

3290 D6T608,20,57,E6,A9,40,8D,6E,02,65, 
28,8D,6F,02,65,29,8D,BD,02,20 
3300 D6TB85,E5,20,07,E6,20,9E,E6,20,2E, 
E6,24,28,10,22,60,00,Bl,OC,FO 
3310 D6T617,66,60,02,81,OC,99,DO,00,88, 
DO,F8,E8,CA,FO,08,B1,DI,20,5E 
3320 D6T6E6,C8,D0,F5,20,42,E6,90,DE,20, 
3D ,£9,28,60,20,50 ,D6,08,20,57 
3330 D6TAE6,20,7D,E5,20,6C,E4,2C,AE,02, 
50,F8,AD,AF,02,45,28,D0,F1,6D 
3340 DATABO,02,45,29,DO,EA,20,9B,ES,60, 
02,Bl,CE,CD,69,02,C8,B1,CE,ED 
3350 DAT6A6,02,BO,06,20,3D,E9,4C,7C,C4, 
20,9E,E6,20,E0,E4,24,28,10,27 
3360 D6TAA0,00,Bl,OC,FO,IC,20,AB,D5,60, 
00,A6,E8,C6,FO,08,20,C9,E6,91 
3370 DATAD1,C8,D0,F5,AO,02,B9,DO,00,91, 
OC,8B,DO,F8,20,42,E6,90,09,20 
3380 D6T63D,E9,20,51,E6,28,60,18,69,03, 
65,OC,85,OC,90,02,E6,00,68,65 
3390 D6T60D,CC,6B,02,ED,6C,02,60,69,40, 
85,2B,20,88,DI,69,00,85,2B,60 
3400 D6T603.B1,CE,8D,66,02,88,B1,C£,8D, 
69,02,DO,03,CE,66,02,CE,69,02 
3410 D6T620,65,00,65,29,48,65,28,48,20, 
B2,E7,68,85,28,68,85,29,6D,5B 
3420 D6T602,0D,6D,02,0D,6E,02,00,56,02, 
FO,03,4C,70,DO,20,66,E7,60,18 
3430 DATAA5,CE,6D.69,02,8D,AB,02,65,CF, 
6D,66,02,8D,6C,02,60,04,B1,CE 
3440 D6TA20,88,D2,8D,A9,02,8C,6A,02,85, 
OC,84,00,60,20,00,00,20,IB,63 
3450 D6T64C,C5,4C,20,FF,FF,20,1B,43,4C, 
C5,4C 

3460 DATA*,3,E4D 

3470 DATA62,00,20,E8,00,86,27,85,B4,20, 
E8,00,20,16,D2,B0,03,4C,70 ,D0 
3480 D6T662,00,86,28,86,29,20, E2 ,-00,90, 
05,20,16,D2,90,OB',66,20,E2,00 
3490 DATA90,FB,20,16,D2,B0,F6,C9,24,D0, 
06,69,FF,85,28,DO,10,C9,25,DO 
3500 D6T613,65,2B,30,DO,69,80,85,29,05, 
B4,85,B4,86,09,80,66,20,E2,00 
3510 D6T686,B5,38,05,2B,E9,28,D0,03,4C, 


BB,D2,24,2B,70,F9,69,00,85,2B 
3520 D6TAA5,9C,66,9D,60,00,86,CF,85,CE, 
E4, 9F,D0,04,C5,9E.F0,24,65,B4 
3530 D6T6D1,CE,DO,08,65,B5,C8,DI,CE,FO, 
6C,88,18,65,CE,69,07,90,El,EB 
3540 DATADO,DC,C9,41,90,07,E9,5B,38,E9, 
05,BO,OO,6O,68,48,C9,7E,DO,OD 
3550 DAT6B6,BD,02,01,C9,DO,DO,05,69,07, 
60,Ç2,60,65,9E,A4,9F,85,CE,84 
3560 D6T6CF,A5.60,64,61,85,C9,84,C6,18, 
69,07,90,01,C8,85,C7,84,C8,20 
3570 D6T6F4,C3,65,C7,64,C8,C8,85,9E,84, 
9F,AO,00,A5,B4,91,CE,C8,A5,B5 
3580 D6TA91,CE,69,00,C8,91,CE,C8,91,CE, 
C8,91,CE,C8,91,CE,CB,91,CE,65 
3590 D6T6CE,18,69,02,64,CF,90,01,C8,85, 
B6,84,B7,60,65,26,06,69,05,65 
3600 DAT6CE,64,CF,90,01,C8,85,C7,84,C8, 
60,90,80,00,00,00,20,E2,00,20 
3610 D6T617,CF,20,06,CF,65,D5,30,0D,A5, 
DO ,C9,90,90,09,A9,97,60 ,D2,20 
3620 DAT64C,DF,DO,7E,4C,8C,DF, AS, 2B, DO, 
47,65,27,05,29,48,65,28,48,60 
3630 D6T600,98,48,65,B5,48,A5,B4,48,20, 
9C,D2,68,85,B4,68,85,B5,68,A8 
3640 D6TAB6,BD.02,01,48,BD,01,01.48,65, 
C3,9D,02,01,65,D4,9D,01,01,C8 
3650 D6T620,E8.00,C9,2C.F0,D2,84,26,20, 
5F,DO,68,85,28,68,85,29,29,7F 
3660 DATA85,27,66,9E,65,9F,86,CE,85,CF, 
C5,Al,DO,04,E4,AO,FO,3F,60,00 
3670 D6T6B1,CE,C8,C5,B4,DO,06,65,B5,DI, 
CE,FO,16,C8,B1,CE,18,65,CE,66 
3680 D6T6C8, Bl, CE, 65, CF, 90, D7,62,6B, 2C, 
62,35,4C,7E.C4,A2,78,65,27,D0 
3690 D6TAF7,A5.2B,FO,02,38,60,20,86,D2, 
A5,26,60,04,DI,CE,D0,E1,4C,EB 
3700 D6TAD3, A5.2B, FO, 08,20,3D, E9,62,2A, 
4C,7E,C4,20,86,D2,20,44,C4,69 
3710 D6T600,68,85,E1,62,05,A5, B4,91,CE, 
10,01,CA,C8,65,B5,91,CE,10,02 
3720 D6T6C6,C6,86,E0,65,26,C8,C8,C8,91, 
CE,62,OB,69,00,24,27,50,08,68 
3730 D6T61B,69,01,AA,68,69,00,C8,91,CE, 
08,86,91,CE,20,4D,D4,86.E0,85 
3740 D6T6E1.64.91 ,C6,26, DO ,DC, 65 ,C8, BO, 
5D ,85 ,CB ,68,8A, 65 ,C7,90,03 ,C8 
3750 DATAFO,52,20,44 ,C4,85,60,84,Al,69, 
00,E6,E1,A4,EO,FO,05,88,91,C7 
3760 DATADO,FB,C6,C8,C6,El,DO,F5,E6,C8, 
38,65,60,E5,CE,AO,02,91,CE,A5 
3770 DATA61,C8,E5,CF,91,CE,A5,27,DO,62, 
C8.B1,CE,85,26,A9,00,85,EO,85 
3780 D6TAE1,C8,68,AA,85,D3,68,85,D4,D1, 
CE,90.OE,DO,06,C8.86,DI.CE,0 
3790 D6TA07,4C.33,D3,4C,7C,C4,C8,65,El, 
05,EO.18,FO,06.20.40,04,86,65 
3800 DATAD3,AA,93,A4,91,65,D4,86,E0,C6, 
26,DO,C6,85,El,62,05,65,B4,10 
3810 D6Î6Û1,06.65,B5,10,02,C6,C6,86,97, 
69.0C,20,56,D4.86,65.C7.e5,B6 
3820 D6T69S,65,C8,85,B7,68.A5,B6,60,E6, 
EA. E6,E <5 : D0,02.E6.E6.8C. 12,71 
3830 D6TA60,00,B1,E9,6C,12,71,C9,20,FO, 
EC-4C,41 ,E6,4C- 
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3840 DATA»,U ISA 

3850 DATAAO,00,D1,E9,DO,03,4C,14,71,A2, 
10,40,85,04 

3860 DATA4,I,112E,CA70,CA99,CA3E,CA61.t 
3870 REK=================~============ 

3880 R01= DATAS D'ADAPTATION DES 
3890 REN= ADRESSES DE LA ROUTINE POUR= 
3900 REN= POUVOIR LA RELOGER 
3910 BEN=s==s============ss=====ï==s=~ 

3920 DATA827,860,980,9B0,SCA,9A7,9CF,» 
3930 DATA872,-256,875,-256I896,-256,8B5 
,-254,94A,-257,953,-255,960,-251,» 

3940 DATA999,99D,9A1,9B4,9B8, * 

3950 DATA801,979,806,969,SCA,96A,SD 1,82 
0,925,96B,96I,96A,965,969 
3960 DATA972,8B8,9C5,979,9D9,977,9F0,82 
0,9FE,8C3,A01,9D5,A09,9D5 
3970 DATA2,318,ID,157,20,161,180,195,18 
F,190,59,IBB,1EE,1F3,1DF,1ED.5C,1C8 
3980 DATA79,204,14F.EB, 106,211,1BF,236, 
277,284,219,255,2AD,318,2D8,213 
3990 DATA2BE,2CB,2C1,2DA,313,1F3,204,30 
1,319,Bl,329,0,320,3 IB,332,297,A88,79F 
4000 DATA335,31B,196,345,19A,102,420,49 
E, 428,49E,42F,49E.CCB,CD9,A82,84E 
4010 DATA6A3.6DD,6A6,6DE.6AB.6DF,6B1,6D 

E, 6B7,6EF,6BA,6CF,6BD,6FF,A85,352 

4020 DATA6C0,ADO.6C9,6DD.6D5,6DE.6D8,6D 

D, 49C,AC3,32F,005,338,CC5,A8B,7A3 

4030 DATAD02,DDO,D14,2CB,D17,2DA,D1A,E1 

7. D1D.301 ,D41 ,DBB,D4F,D00,052,157 

4040 DATAD55,161,D6B,1BB,D83,E17,D86,IC 

8, DAF,DBB,DB7,204,DFA,318,E3B,DOO 

4 050 DATAE5A.EDB,E6D,EDB,E78,EDB.EA7,F8 
0,F97,F61,100D.F4B,1018,IOBO 
4060 DATA 1027.F4B,1OCF,FF8.DD5,E4D.111B 
,1112,1122,1112,1132, U1A, 1147, U1A 
4070 DATAE3E, 31B, E41, CCS, E4 4, D4A, E4 7,31 
B,E4A,CC5,113B,1 ISA 
4080 DATAI 161,1114,»,» 

4090 DATA71,2IB,241 ,245,20A,289,349,33A 
,430,527,482,680 

4100 CATAA24,A8E,A5E,409,A66,A03,A6E, 6A 

2 

4110 DATA48E,694,498,699,»,t 

4120 REH=============================== 

4130 REN= EQUIVALENCE DES ADRESSES = 
4140 REÎ1= ORIC-1 / ORIC-ATHOS 
4150 REH===========“================== 

4160 DATAI7,CFE4.0070,1A.E6CA.E76A,5F,E 
S04,E93D,6E,EOC1,E0BA 
4170 DATA75,OBED,CCBO,99,C56F,0557,A6,C 
733,0708,A9,0733,C708,AC,C4B8,C4A8 
4130 DATAAF,CFE4,D070-CO.CE3B.OF17,D3,D 
715.D7D0,134.E79D-E853 
4190 DATA 153,CFE4, DO70.1 5B.E563,E5F5,15 

F, E576,E5ED,162,E696TË7Î5 

4200 DATA ! 65,E630,E6C9,171,E630,E6C9,17 

A, E63Û,E6C9,1BC,E563,E5F5 

4210 DATA1C3,E576,E5ED,1D5,E630.E6C9,20 

E. CBED,CCBO,256,F436.F865 

4220 DATA28!,F436,F865,2BE,CFE4,D070,2B 

B, E6CA,E76A,2C7,E804,E93D 

4230 DATA2CC,E563,E5F5.2D3,E576.E5ED.2D 
B,E6BA.E75A,2E0,E5C6,E65E 


4240 DATA2E8,E5C6,E65E,2F3,E5C6,E65E,2F 
9, E5C6, E65E, 310, E5C6, E65E 
4250 DATA346,E563,E5F5,460,CCI2,CCD9,46 
5.CCI 2,CCD9,472,0012,CCD9 
4260 DATA479,CBED,CCBO,486.CBED,CCBO,49 

2, CBED,CCBO,495,EÛBD.EOCl 

4270 DATA6DB,EA41,ECB9,9FB,C8DD,C90C,9D 

3, CB99,CEEA,A04,CBED,CCBO 

4280 DATAD3B,E5C6,E65E.D46,E804,E93D,D4 
B,D595,D650,D7D,E804,E93D 
4290 DATAD80,0483,C47C,D93,D4F0,D5AB,D9 
D,E630,E6C9,DB4,E804,E93D 
4300 DATADF1,CFD9,D065,Ell,CFE4,D070,E1 

4, E6CA,E76A,1129,EA41,ECB9 

4310 DATAE5F,CFE4,D070,F15,C3F8,C3F4,F6 

5, CE8B,OF17,F68,CE7A,CF06 

4320 DATAF79,DF34,DF4C,F7E,DF74,DF8C, FB 

F, CFD3,D05F,FFE,C485,G47E 

4330 DATA1024,0485,C47E.102A,0448,0444, 
1064,D3A5.D44D,1080,0448,0444 
4340 DATA 10D2,0483,0470,1ODD,D3A5,D44D, 
1102,D3AE,D456 

4350 DATA9D6,02F1,C82F,9D5,F14E,2F20,E2 

D, D1F6,D288,1120,CACD,CA3F 
4360 DATAI 166,0485,C47E,»,»,» 

4370 DATA924,32,927,234,9AB, 255,9B6,252 
,971,-32,986,157,»,0 

4330 DATA71,375,21E, 15B, 3BD, 34D, 20A, 39B 
,289,230,3CD,350,241,3DC.245 
4390 DATA2CF,3EC,369,349,3FA,33A, », », * 
4400 REÏ1=============================== 

4410 REH= = 

4420 REM= LISTE DES MOTS CLEFS 
4430 REM= PROPOSES (MODIFIABLE) 

4440 REN= 

4450 REM======="=“"="==========™= 

4 4 60 DATAFIN,EDI TE,STOCKE,REPREND,TRON. 
TROFF,POP,ECR,PULL,ERESOL,DMETS,REPETE 
4470 DATAJUSQUE,POUR,ILISTE,!AFFICHE,SU 
IV,DONNEE,DEMANDE,DIM,EFFACE,LIS 
4 430 DATAQÜE,VAEN,DEMARRE,SI,RELIS,SPRO 

G, RETOUR,REM,HEHH,RECUPERE.LIBERE 

4490 DATATEXTE.HRESOL,FUSIL,EXPLOSE,LAS 
ER,SONNE,SON,MUS I QUE,JOUE,CURSEUR 
4500 DATACEPLACE,DESSINE,CERCLE,PATRON. 
COLORE,CARACTERE.PAPIER,ENCRE 
4510 DATASTOP,SELON.ATTENDS,CHARGE,SAUV 

E, DEF,METS,AFFICHE,CONT,PLI STE 

4520 DATANET.SAISIS,APPELLE,i.OUBLIE,TA 
B(,JUSQU,FCT,EBP(.8,AUTO,SINON.ALORS 
4530 DATANC'N,PAS, + ,-,»,/.*.ET.OU,>,=,<, 
SGN.ENT,ABS,LH,LIBRE,POS,HEX«,fc,RAC 
4540 DATAHAS.LN.EXP,COS,SIN,TAN.ATN,PIQ 
• OPIQ.LOG, LON .CHAINE», VAL,.ASC, CAR», P1 
4550 DAT AVRAI - FAUX,TOUCHE».ECRAN,POINT. 
GAUCHE»,DROITE»,MORCEAU»,GO 
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Traduction des tressages 


- Messages d’erreur 
NEXT UIITHOUY FOR • SUIU SANS POUR 
SYNTAX : SYNTAXE 
RETURN UIITHOUT GOSUB 
RETOUR SANS SPROG 


OUT OF DATA = PLUS DE DONNEES 
ILLEGAL QUANTI TT : QUANTITE INTERDITE 
OUERFLOU : TROP GRAND 
OUT OF MEMORY : MEMOIRE PLEINE 
ONDEF’D STATEMENT : uIGNE INEXISTANTE 
SAO SUBSCRIPT ■ MAUUAIS INOICE 
REDIM’O ARRAT 
TABLEAU DEJA DIMENSIONNE 
01UISI ON BT ZERO : OIUISION PAR ZERO 
ILLEGAL DIRECT ! MODE DIRECT INTERDIT 
DISP TYPE MISMATCH 
TYPE DE PARAMETRE MAUUAIS 
STRING TOO LONG : CHAINE TROP LONGUE 
FORMULA TOO COMPLEX 
FORMULE TROP COMPLEXE 
CAN’T CONTINUE : JE NE PEUX CONTINUER 
UNDEF’D FUNCTION : FONCTION NON DEFINIE 
DISP TYPE MISMATCH 
MODE D’AFFICHAGE MAUUAIS 

ERROR ^ERREUR 
IN : EN 
Ready : Prêt 
BREAK : ARRET 


- Messages d’aperalion cassettes 

Uertly errors detected. 

Erreurs d» verif.cat.on detectees. 
Searchtng . Je cherche 
errors found. 

Erreurs de chargement reperees. 
Load-ng .. : Je charge .. 

Oerliying Je uer.l.e . 

Sautng •. l Je sauve . 

Figure 3 

Liste des nouveaux mots-ciels 


END > FIN 

EOIT > EDITE 

INUERSL -> STOCKE 

NORMAL -> RE PRE NO 

TRON > TRON 

TROFF -> TROFF 

POP > POP 

PLOT > ECR 

PULL > PULL 

lORES -> BRESOL 

OOKE > DHETS 

REPEAT -> REPETE 

UNTIL -> JUSQUE 

FOR > POUR 

LL!ST -> ILISTE 

vPRINT -> IAFFICHE 

NEXT > SUIU 

DATA > DONNEE 

INPUT -> DEMANDE 

DIM > oin 

CLS > EFFACE 

READ > LIS 

vET > QUE 

GOTO > UAEN 

RUN > DEMARRE 

IF • -> SI 

RESTORE -> RELIS 

GOSUB -> SPROG 

RETURN -> RETOUR 

REM > REM 

HIMEM > MEMH 

GRAB > RECUPERE 

RELEASE -> LIBERE 

TEXT > TEXTE 

H IRES -’-> HRESOL 

SHOOT -> FUSIL 

EXPLOCE -> EXPuOSE 

zap -> laser 

PING > SONNE 

SOUND -> SON 

MUS IC -> MUSIQUE 

PLAY > JOUE 
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CURSET 

-> CURSEUR 

CN 

-> FCT 

SQR 

-> RAC 

CURflOU 

-> DEPLACE 

SPCf 

.> ESP( 

RNp 

-> mas 

DRAW 

-> DESSINE 

Q- 

-> e 

wN 

-> LN 

CIRCLE 

-> CERCuE 

AJTO 

-> auto 

EXP 

-> EXP 

PATTERN 

-> PATRON 

EuSE 

-> SINON 

CCS 

-> COS 

F ILL 

-> COLORE 

tnEn 

.> AuORS 

S IN 

.> SIN 

CHAR 

-> CARACTERE 

N0T 

-> NON 

TAN 

-> TAN 

p APER 

-> PAPIER 

STEF 

-> pas* 

ATN 

-> atn 

INK 

.> ENCRE 

- 

-> f 

PEEK 

.> PIQ 

STOP 

-> STOP 

- 

-> - 

DEEK 

-> OP IQ 

ON 

-> SElON 

▼ 

-> * 

u DG 

-> LOG 

WAIT 

-> ATTENDS 


-> /• 

..EN 

-> LON 

CL OAD 

-> CHARGE 

- 

-> p 

STR* 

-> CHAINE* 

CSA JE 

-> SAUUE 

ANC 

-> ET 

•JAI. 

-> UAl. 

DEF 

-> DEF 

OR 

.> OJ 

ASC 

-> ASC 

POKE 

-> METS 

> 

-> > 

CHR* 

-> CAR* 

PRINT 

-> AFFICHE 

X 

-> c 

p i 

-> PI 

CONT 

-> CONT 

< 

-> < 

TRUE 

-> URA! 

uIST 

.> PLISTE 

SON 

-> SGN 

PAL SE 

-> faux 

ClEAR 

-> NET 

INT 

-> ENT 

KE1* 

-> TOUCHE* 

GE T 

-> SAISIS 

ABS 

-> ABS 

SCRN 

-> ECRAN 

CALL 

-> APPELLE 

JSR 

-> LH 

POINT 

.> POINT 

0 

- > £ 

CRE 

.5 LIBRE 

uEFT* 

-> GAUCHE» 

NEW 

-> OUBlIE 

POS 

-> POS 

PIÎMT* 

-> droite* 

T AB( 

-> TABC 

H£,<* 

-> HEXf 

NID» 

-> nORCEAü* 

TO 

-> JUSQU 

3. 

-> a. 

GG 

-> GO 


Pierre JULIEN 


HELLO! DISCORIC 


V oici un petit programme, sans 
prétention, à sauver sur votre 
DISCORIC sous le nom "BOOT- 
UP,COM", qui permettra, à la 
mise sous tension, d'initialiser 
votre système comme vous le 
souhaitez, après un "BOOTING”. 

1 REM -INITIALISATION- 

2 REM - 

3 REM - JULIEN PIERRE- 

4 REM - 

5 CLSîPRINTCHR* U7) 

7 PAPER1 : INK2 
10 PRINT<?5,3 + A 
15 PRINTTAB(35) 

20 A=A+1 
30 IFA=20THEN45 
40 GOTOIO 
45 PRINTCHRf(4)• 

50 PRINT(?1 6,1 1 ;CHR$ ( 27 ) "NBON JOUR" 

60 PRINTCHR$(4) 

7 0 PR I NTS'O ,2 5 : CHR* ( 27 ) : CHR* ( 80 ) 

80 PRINTS8,251"DESIREZ VOUS LE DIRECTORY" 

90 GETA$ 

100 IFA$ = "O"THEN120 
110 CLE : PRINTCHRÎ(17) :PAPERO: NEW 
120 CLE :PAPERO: ! DIR 

130 PRINT :PRINTCHR*(27))CHRi(69)"DESIRES VOUS 
140 GETA$ 

150 IFA$ = "O"THEN120 
160 PRINTCHR$(17) : NEW 


; CHR$ ( 27 ) CHR$ ( 80 ) 
CHR$(27);GHR5(81) 



UN AUTRE DIRECTORY" 
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DES UTILITAIRES POUR 

VOUS PLAIRE 


N ous commençons ici une 
série de trois articles qui vont 
vous permettre de disposer de 
petits utilitaires, écrits en langage 
machine complétant, de manière 
très intéressante, le Basic de 
l'ORIC. 

Tout possesseur d'ORIC-1 ou 
d'ATMOS a, un jour ou l'autre, 
regretté l'absence sur cet ordina¬ 
teur d'un certain nombre de 
petits utilitaires qui rendent plus 
agréable ou plus souple sa pro¬ 
grammation. Parmi ceux-ci, on 
peut citer : OLD, ERASE, RES¬ 
TORE N, la gestion des erreurs, 
DELETE, etc. 

Les programmes que nous allons 
vous proposer permettent de 
combler très simplement ces peti¬ 
tes lacunes. 

Le premier programme, "UTILI¬ 
TAIRE. 1" est un chargeur Basic 
pour la routine principale en lan¬ 
gage machine. Cette dernière est 
implantée de #9600 à #97FF 
devant le premier clavier et est 
protégée par un HIMEM # 9600. 
Elle ne craint ni les RESET, ni les 
changement de mode graphique. 
Cette routine a été conçue pour 
être d'une utilisation des plus 
simples. Toutefois, le "!" ne sera 
pas employé ici car il est déjà très 
souvent utilisé pour de multiples 
petits utilitaires ou pour la gestion 
des disquettes (par exemple). 

La solution retenue ici a été de 
détourner la routine "GETCAR" 
située en #00E2-#00F2 qui per¬ 
met au Basic de lire un à un les 
octets du programme à exécuter. 
Le gros avantage de cette 
méthode est de pouvoir redéfinir, 
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à volonté, la syntaxe des diffé¬ 
rents ordres du Basic (ceci n'est 
d'ailleurs pas propre à l'ORIC et 
est aussi valable sur la plupart 
des ordinateurs ;au moins ceux 
qui utilisent un 6502). 

Par exemple, l'ordre : RESTORE 
numéro de ligne. Il suffira main¬ 
tenant de taper, par exemple, 
"RESTORE 100" pour remplacer 
le pointeur DATA au début de la 
ligne numéro 100. Cela a l'avan¬ 
tage, en outre, de faciliter gran¬ 
dement la compréhension d'un 
programme. L'ordre "RESTORE" 
seul, tel qu'il était utilisé aupara¬ 
vant reste toujours corHect et 
équivaut à un "RESTORE numéro 
de la première ligne du pro¬ 
gramme". Une dernière remar¬ 
que : le numéro de ligne peut 
aussi être une variable ou une 
expression à calculer, mais il doit 
correspondre à une ligne qui 
existe sous peine de "UNDEF'D 
STATEMENT ERROR". 

Le même système est employé 
pour l'ordre INPUT. Après la ren¬ 
trée des données, la routine teste 
si l'INPUT s'applique à une varia¬ 
ble réelle, entière ou alphanumé¬ 
rique. Dans le cas de ces deux 
dernières, elle se branche direc¬ 
tement sur la ROM sans rien 
modifier. Par contre, s'il s'agit 
d'une variable réelle, elle effectue 
l'opération qu'on a pu lui propo¬ 
ser, permettant ainsi de rentrer 
directement au clavier des 
expressions telles que : 2* COS 
(pi/3) ou encore A + B/C*EXP 
( — D15), etc. 

REMARQUE : Il y a toutefois un 
petit inconvénient à ce procédé ; 


il n'est plus possible de rentrer 
plusieurs valeurs à la suite d'un 
seul coup (1, 2,... + CR), mais, 
par contre, cela est toujours pos¬ 
sible pour les variables entières 
ou alphanumériques, et l'on pos¬ 
sède de plus une nouvelle 
syntaxe (cf ligne 490), qui per¬ 
met de mieux "voir" ce que l'on 
rentre. 

Les autres ordres de cette pre¬ 
mière routine utilisent tous la 
même syntaxe : 

"&" + une lettre-fies données. 
Le joue donc ici le rôle sou¬ 
vent réservé au "!", mais il n'in¬ 
terdit pas pour autant l'utilisation 
du "&(..)" dont l'adresse est en 
# 2FC-# 2FD. 

Le plus simple des ordres est ici 
le "&0" qui oorrespond à l'ordre 
"OLD" et qui permet de récupé¬ 
rer un programme Basic après un 
NEW intempestif. Il ne faut natu¬ 
rellement pas avoir rentré de nou¬ 
velles lignes ou avoir manipulé 
des variables entre le "NEW" et 
le "&0" car, dans ce cas, le pro¬ 
gramme n'est plus récupérable 
de manière aussi simple. 

L'ordre suivant est "&E +varia¬ 
ble". Le "E" est l'abréviation de 
"ERASE", c'est-à-dire "EFFACE". 
Il permet de détruire une variable 
simple ou un tableau présent 
dans un programme, et donc de 
libérer de la place en mémoire. 
Les autres variables et tableaux 
ne sont naturellement pas affec¬ 
tés par ce changement. Mis à 
part le gain de place, &E peut 
aussi permettre de redimension¬ 
ner un tableau dont les bornes 
sont trop faibles, en passant par 
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un tableau intermédiaire que l'on 
efface ensuite, et ce sans risque 
de "REDIM'D ARRAY ERROR”. 
L'utilisation de cette commande 
est la suivante : 

&E A 
&E B% 

&E C$ 

pour les variables simples 
(7 octets) 

Pour les tableaux, par exemple : 
si DIM A( 10) alors &E A(0) ou &E 
A(10) 

B& (5,3,1) &E B%(0,0,0) 

C$( 1,2,3,4) &E C$ 10,0,0,0) 

Ce qui compte, c'est surtout de 
respecter le nombre des indices 
du tableau. Les mettre à zéro est 
une facilité, mais tous les indices 
correspondant aux dimensions de 
la matrice peuvent convenir. 

La dernière commande de ce pre¬ 
mier programme est en "&D 
L1 — L2'\ qui équivaut à l'ordre 
DELETE du Basic "standard”. Il 
permet de détruire rapidement un 
groupe donné de lignes. Ainsi, 
"&D L1 - L2” détruira toutes les 
lignes de L1 à L2 ; L1 et L2 
comprises. La syntaxe est la 
même que celle de LIST. On aura 
donc, par exemple : 

&D 10 : efface la ligne n° 10 
&D -20 : efface les lignes de 
numéro <20. » 

&D 50- : coupe le programme 
à partir du numéro 50. 

&D 20- 30 : efface les lignes tq : 
19<n°s31. 

&D - : détruit le programme. 
Avec l'usage, cette commande 
s'avère rapidement très utile et 
bien agréable. Elle permet en 
outre de garder un tronc commun 
sur lequel on "MERGE" diffé¬ 
rents programmes satellites en 
POKANT les données dans une 
zone à l'abri. 

En plus de ces diverses comman¬ 
des supplémentaires, ce pro¬ 
gramme permet de toujours tra¬ 
vailler dans les conditions souhai¬ 
tées. Tel qu'il est ici, le pro¬ 
gramme fournit une encre cyan 
(6) sur un fond noir (0) avec un 
clavier muet et deux fois plus 
rapide. Il remplace de plus le 
"Ready" par un "ok:" sans 


changement de ligne. Il est bien 
sûr possible de changer à volonté 
ses paramètres. 

POKE # 97E8, couleur papier + 
16 (ici 16). 

POKE # 97ED, couleur de l'encre 
(ici 6). 

POKE #97E3, registre d'état, RE 
(ici 11 ). 

En général, on a RE = 2 
+ 1 si cyrseur visible, 

+ 8 si clavier muet, 

+ 32 si 40 colonnes au lieu de 
38. 

De plus, mais sur ATMOS seule¬ 
ment : 

POKE #97B9, délai pour répéti¬ 
tion (ici =8). 

POKE #97BE, délai de la répéti¬ 
tion (2). 

Encore une chose. Si vous dési¬ 
rez garder le "Ready", faites : 
POKE # 97F2, # C3:POKE 

# 97F4, # B2 si ATMOS 

et POKE # 97F2, #C3:POKE 

# 97F4, #B6 si ORIC-1 (en une 
seule instruction, bien sûr). 

Pour plus de détails concernant 
le fonctionnement de cette rou- 
tinne, on se reportera au listing 
désassemblé et commenté ci- 
joint. 

Si vous désirez rajouter d'autres 
commandes sur modèle : 
& +lettre : branchement en 
#96F0. Si redéfinition d'un 
ordre : en #97B4. 


0 REH- 

1 REH Utilitaires pour ORIC-1 S ATMOS 

2 REH 

3 REH LEGAL Thierry * Hars 85 

4 REH 

5 REH SO 01d=Reoaration de MEK 

6 REH SD L1-L2 Delete(efface lianes) 

7 REH SE Var Ereasef . var ou tab) 

8 REH RESTORE l -Restore Ho Ligne 

9 REH INPUT Var:Input calcule si reel 

10 REH 

11 REH- 

12 REH Entrée des Data 

13 REH--- 

20 HIHEH *9600 CLS FOR 1=0 TO 63 
25 PRINT 63-1 ; : AD=#9600+8*I : S=0 
30 FOR J=0 TO 7 RE AD A*:A=VALC#'+AK) 
35 POKE AD+J.A S=S+A NEXT READ SC 
40 IF S=SC THEN NEXT GOTO 50 

45 PRINT‘Erreur liane‘103+I ZAP END 
50 IF PEEK(#FFFE)=40 THEN G05UB 200 
55 PING CALL #9600 CLS PRINT ‘0K‘ 


60 PRINT ‘Routine UT1L nplantee" 

65 PRINT'Preparez le Hagneto" GET A# 
70 CSAVE'UTIL LH‘,A#9600.E#97FF,AUT0 
75 GOTO 300 ’ Exemples d'utilisation 
80 ’ 

100 REH-- 

101 REH Data routine UTIL 

102 REH- 

103 DATA 4C,BB,97,20,E2,00,C9,44,H3AA 

104 DATA D0,56,20,E2,00,FO,51,20,*389 

105 DATA E2,CA,20,B3.C6,A5,CE,A4,#55C 

106 DATA CF,85,02,84,03,20,E8,00,«2E5 

107 DATA F0,12,C9,CD,D0,39,20,E2,*4A3 

108 DATA 00,00,06,A9.FE,85,34,DO,#406 

109 DATA 03,20,E2,CA,18,E6,33,90,#390 

110 DATA 02,E6,34,20,B3,C6,A5,CE,#428 

111 DATA A4,CF,85,00,84,01,38.A5,H35A 

112 DATA 9D,E5,01,AA,E8,A0,00,B1,#466 

113 DATA 00,91,02,C8,D0,F9.E6,01,#40B 

114 DATA E6,O3,CA,DO,F2.F0,OD,6O,#4D2 

115 DATA C9,4F,D0,1B,20,E2,00,A9,#3AE 

116 DATA 01,A8,91,9A,2O,5F,C5,18,#330 

117 DATA A5,91,69,02,85,9C,A5.92,#3F9 

118 DATA 69,00,85,9D,4C,0F,C7,C9,#376 

119 DATA 45,D0.6D,20,E2,00,20.17.M2BB 

120 DATA CF,A5,CF,C5,9F,90,41,D0,#548 

121 DATA 06,A5,CE,C5,9E,90,39,A0,#445 

122 DATA 02,Bl,CE,85,B4,18,65,CE,#405 

123 DATA 85,B6,C8,Bl,CE.85,B5,65,«521 

124 DATA CF,85,B7,AO,00,B1,B6,91,H4A3 

125 DATA CE,C8.D0,F9,A5,B7,E6,B7,#658 

126 DATA E6,CF,C5,Al,F0,EF,90,ED,#677 

127 DATA 38,A5 > A0,E5,B4•85,A0 > A5,#4E0 

128 DATA A1,E5,B5,85,A1,4C,E8,00,#495 

129 DATA 38,A5,9E,E9,07,85,9E.A5,«433 

130 DATA 9F,E9,00,85,9F,A9,07,85.H3E1 

131 DATA B4,A9,00,85,65,18,A5,CE,#422 

132 DATA 69,07,85,B6,A9,00,F0,87,H3FB 

133 DATA 60,E8,Eft,20.E2,00,09.22,«421 

134 DATA 00,06,20,25,00,A9.3B,20,«2F4 

135 DATA 67,DO,20,B3,CC,20,D2.D4,«49C 

136 DATA A9,2C,85,34,fl9,00,85,17.#2D3 

137 DATA 20,80,CD,86,B2,84,83,A5,#481 

138 DATA 35,DO,07,05,17,F0.E9,4C,«3ED 

139 DATA 7C,CD,98,85,2C,20,88,DI.#40B 

140 DATA 85,B8,84,B9,A5,B5,10,03,H3E7 

141 DATA 4C,9C,CD,A5,EA,48,A5,E9,H51A 

142 DATA 48,06,B2,E8.86,E9,A6,B3,#550 

143 DATA 86,EA,20,F0,C5,A5.B4,85,M52D 

144 DATA 32,05,B5,D0,02,A9,20,85,#30C 

145 DATA 33,A9,D4,85,34,09,32,85,#3C9 

146 DATA E9,20,E8,00 » 20.10,CB,68,#360 

147 DATA 85,E9,68.85,EA,20,E8,00,M44D 

148 DATA C9,2C,F0,87,D0,23,20,E2,#461 

149 DATA 00,DO,05,20,52,C9,00,19.H2F9 

150 DATA 38,20,53,E8,20,83,C6,B0,«3DC 

151 DATA 03,40,23,C0,A5,CE-E9,01,#399 

152 DATA A4,CF,60,01.88,85,60,84.#465 

153 DATA Bl•40,E8,0C,E0.C9.92,D0,H4FA 
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154 DATA 03.4C.F3,?6,C9,?A.00,03.«40E 

155 DATA 4C,6E,97,C9,DD,D0,0D,A0,#474 

156 DATA 01,B1,E9,C9,28,F0..03,4C,H3CB 

157 DATA 03,96,A9,DD,4C,B9,EC,EA,H4FA 

158 DATA fl9,08,8D,4E,02,A9,02,8D,#2C6 

159 DATA 4F,02 > AO,02,B9,D4.9?,99,H3B0 

160 DATA 1A,00,B9,D7,97,99,EF,00,H3C9 

161 DATA 88.10.F1.60.4C.DA.97.4C.03F2 

162 DATA 95,97.AO,95,A9,FF,84,A7,0534 

163 DATA 85.A6.A9.0B.8D.6A.02.A9.0381 

164 DATA 10.8D.6Bi02.A9i06i8D.6C.02B2 

165 DATA 02.AO.97,A9,F8,4C.B0,CC,04A2 

166 DATA 20,6F,6B.3A,00,00,00,00,0134 

167 ' 

200 REM- 

201 REM Modifications ORIC-1 

202 REM- 

203 DOKE #9610,#CA98:DOKE 09613.0C6DE 

204 DOKE #9632,0CA98 DOKE 0966D.0C56F 

205 DOKE #967D,0C73A D0KE 09687.0CE8B 

206 DOKE I96FB,HCF99 DOKE K9700.0CFDB 

207 DOKE #9703,OCBFO.DOKE #9706,0D419 

208 DOKE #9711,OCCF4:DOKE #9720,0C94E 

209 DOKE #9731,OCDIO:DOKE U9743.0C60A 

210 DOKE I975D.0CAD2 D0KE 09774.0C91F 

211 DOKE #977A,0E79D DOKE #977D,0C6DE 

212 DOKE #9782,0C9F1:DOKE #97B5,0EA41 

213 DOKE «97F6.0CBED DOKE #9726,0D0FC 

214 DOKE 8963C,0C6DE DOKE #9601,#97C2 

215 RETURN 

216 ' 

300 REM- 

310 REM Oeuo de RESTORE N 

320 REM- 

330 DATA 1,2 
340 DATA 3,4,5 
350 DATA 6 
360 DATA 7,8 
370 : 

380 FOR IM TO 10L=1NT(4*RND(1)) 

390 RESTORE 10*1+330 READ A,B 
400 PRINT L,A;B -HEXT PRINT : GET Aï 
410 REM 

420 REM-- 

430 REH Oeuo de INPUT pour les reels 

440 REM- 

450 INPUT ■A";A : PRINT A : PRINT 
460 INPUT -S-;A*: PRINT A» PRINT 
470 INPUT 'IZ.JZ'.IX.JZ : F'RINT 1Z.JZ 
480 : 

490 INPUT ■A= , ;A,“B=VB, , C=":C 
500 PRINT A,B,C : PRINT 
510 PRINT 

520 REM- 

530 REM Derno pour Erease ( SE ) 

540 REM- 

550 : 

560 CLEAR 1=0 MEM=FRE(0) : GOTO 580 
570 PRINT 1 'HEH-FRE(O) : RETURN 


580 PRINT 'Octets utilises ":PRINT 

590 A=57Û : GOSUB A 

600 BZ=2 : GOSUB A 

610 C«='3V GOSUB A 

620 : 

630 DIM VARREEL (10,10) : GOSUB A 

640 DIM ENTIERZ (20) ' : GOSUB A 

650 DIM CHAINE» (5,10,15) : GOSUB A 

660 


- UTIL - 

9600 4CBB97 JMP 97B8 


9603 

20E200 

J5R 

00E2 

9606 

C944 

CMP 

#44 

9608 

D056 

BNE 

9660 

— 

DELETE L1-L2 


960A 

2QE200 

JSR 

0QE2 

960C 

F051 

BE9 

9660 

960F 

20E2CA 

JSR 

CAE2 

« • 4 « 

’ - m — 

7f ' 

JSF 

C6B3 

9615 

A5CE 

LDA 

CE 

9617 

A4CF 

LDY 

CF 

9619 

8502 

STA 

02 

961B 

8403 

STY 

03 

961D 

20EB0G 

JSR 

00E8 

9620 

F012 

BEQ 

9634 

9622 

C9CD 

CMP 

#CD 

9624 

D039 

BNE 

965F 

9626 

20E200 

JSR 

00E2 

9629 

D006 

BNE 

9631 

962B 

A9FE 

LDA 

#FE 

962D 

8534 

STA 

34 

962F 

D003 

BNE 

9634 

9631 

20E2CA 

JSR 

CAE2 

9634 

18 

CLC 


9635 

E633 

INC 

33 

9637 

9002 

BCC 

963B 

963° 

E634 

INC 

34 

963B 

20B3C6 

JSR 

C6B3 

963E 

A5CE 

LDA 

CE 

9640 

A4CF 

LDY 

CF 

9642 

8500 

STA 

00 

9644 

8401 

STY 

01 

9646 

38 

SEC 


9647 

A59D 

LDA 

9D 

9649 

E501 

SBC 

01 

964B 

AA 

TAX 


964C 

E8 

INX 


964D 

A000 

LDY 

#00 

964F 

B100 

LDA 

(00),Y 

9651 

9102 

STA 

(02).Y 

9653 

08 

INY 


9654 

D0F9 

BNE 

964F 

9656 

E601 

INC 

01 

9658 

E603 

INC 

03 


670 F'RINT.FOR 1=0 TO 20 ENZ(I)=I NEXT 

680 SE VA(O.O) 

: GOSUB A 

690 SE CHS(0,0,0) 

GOSUB A 

700 SE BZ 

: GOSUB A PRINT 

710 : 


720 F'RINT A.BZ.C9 

: PRINT 

730 FOR 1=0 TO 20 

F'RINT ENTIERZ(I) ; 

740 NEXT : F'RINT 
750 ’- 

END 


Lancement et initialisation 

si S alors lire octet suivant 
le coaparer a ’D’ 
sauter si different 

«et en A l'octet qui suit D 
si D seul alors repartir 
sinon lire 1? »,'’=ur df L1 
et cher.'c, son adresse 

stocker cette adresse en 02-03 


lire octet suivant L1 

si 0 alors L2=L1 et executer 

compare A au code de 

et si different alors ’Error’ 

si SD L1-L2 ... 

.. aller calculer L2 
sinon L2=No de ligne maximum 

et sauter le calcul de L2 
que l’on effectue ici. 

(33) contient le No de L2 
que l’on increaente pour 
obtenir la ligne suivant L2 
rechercher alors son adresse 

et la stocker en !G0-G1)_ 

charger la partie haute de 
l’adresse de fin du basic. 
mettre dans X : (01)-(9D)+1 
qui est le nombre de pages a 
transférer en mémoire. 

transfert de (00) vers (02) , 
cad de L2+1 vers Ll. 
tester si la page est recopiee 
si non alors continuer 
si oui passer page suivante 
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965A 

OA 

DEX 

tester si c'était la derniere 

9658 

00F 2 

8NE 964F 

si non alors suivante 

965D 

FOOD 

BEA 9660 

si oui rétablir pointeurs (OLD) 

965F 

60 

RTS 

retour au basic si 'Error' 

9660 

094F 

CMP «4F 

test pour ’SO’ 

9662 

D01B 

BNE 967F 

si AO'O' alors continuer tests 


~ OLD - 



9664 

ZOE200 

JSR 00E2 

incremente pointeur-text. 

9667 

A901 

LOA «01 

charger A et Y avec la valeur 1 

9669 

A8 

TAY 

puis placer 1 dans poids fort 

966A 

919A 

STA (9A) Y 

de l'adres. de la 2eme ligne. 

966C 

205FC5 

•JSR C55F 

pour rétablir les adresses et 

966F 

18 

CLC 

chercher la fin du programme, 

9670 

A591 

LOA 91 

(91)= fin du basic 

9672 

6902 

ADC «02 

permet de rétablir (90 qui 

9674 

8590 

STA 90 

est le début des variables 

9676 

A592 

LDA 92 

car (90=(91)+2, 

9678 

6900 

ADC «00 


967A 

8590 

STA 90 

rétablir pointeur par un CLEAR 

967C 

4C0FC7 

JMP 070F 

puis revenir au basic. 

967F 

0945 

CMP «45 

test pour 'SE + var' 

9681 

0060 

BNE 96F0 

si AO'E' alors continuer tests 


EREASE 



9683 

20E200 

■JSR 00E2 

lire l'octet suivant le ’E’ 

9686 

2017CF 

JSR CF17 

identifier la variable (en 

9689 

A5CF 

LDA Cf 

mettant son adresse en CE). 

9688 

059F 

CMP 9F 

comparer CF et 9F 

9680 

9041 

BCC 9600 

si 9F > 9F alors var. simple 

963F 

D006 

BNE 9697 

si 9F ( CF alors tableau 

9691 

A5CE 

LDA CE 

si 9F = CF et .. 

9693 

C59E 

CHP 9E 

si 9E > CE alors .. 

«695 

9039 

BCC 96D0 

cas variable simple. 

9697 

A002 

LDY «02 

sinon tableau. 

9699 

8 ICE 

LDA (CE),Y 

(CE) adres du tableau concerne 

9698 

8584 

STA 84 

mettre en 84-85 la longueur de 

969D 

18 

CLC 

ce tableau 

969E 

650E 

ADO CE 

et en 86-87 l'adresse du 

96A0 

8586 

STA 86 

tableau gui le suit, 

96A2 

08 

INY 


96A3 

B1CE 

LDA (CE),Y 

(B4) = (CE,2)=lgr du tab. 

96A5 

8585 

STA 85 


96A7 

65CF 

ADC CF 

(86)=(CE) * (CE, 2) 

96 A 9 

8587 

STA 87 


96AB 

AOOO 

LDY «00 

début de la boude de tranfert 

96AD 

8186 

LDA (86),Y 


96AF 

91CE 

STA (CE),Y 

remonte les variables qui ... 

96B1 

08 

INY 

suivent de la longueur de ... 

9682 

D0F9 

BNE 96AD 

la var (ou tab) a effacer, 

9684 

A587 

LDA 87 


9686 

E687 

INC 87 

et ce jusqu'à la fin des tab. 

9688 

E6CF 

INC CF 

qui est en A0-A1 

96BP 

C5A1 

CMP Al 


9680 

FOEF 

BEQ 96AD 

boucler si (86) = (AO). 

96BE 

90ED 

BCC 96AD 

de meme si (86) ( (AO). 

9600 

38 

SEC 


9601 

A5A0 

LDA AO 

Rétablir le pointeur de fin ... 

9603 

E5B4 

SBC 84 

des tableaux par ... 


96C5 

85A0 

STA AO 

(AO)=(AO)-(84) 

96C7 

A5A1 

LDA Al 

ou (84) est la longueur de la 

96C9 

E5B5 

SBC 85 

var ou du tab a effacer, 

96CB 

85A1 

STA Al 


96CD 

4CE800 

■JMP 00E8 

Retour au basic. (Fin de SE). 

• 9600 

38 

SEC 



9601 

A59E 

LDA 9E 

cas d'une variable simple, 

96D3 

E<?07 

SBC «07 

sa longueur est de 7 octets. 

96D5 

859E 

STA 9E 


96D7 

A59F 

LDA 9F 

remonter l’adresse (9E) des 

96D9 

E900 

SBC «00 

tableaux de 7 octets, 

96De 

359F 

5TA 9F 


96DD 

A907 

LDA «07 

mettre dans (84-85) la longueur 

96DF 

8584 

STA 84 

de la variable . 

96E1 

A900 

LDA «00 

84=7 et B5=0 

96E3 

8585 

STA B5 


96E5 

18 

CLC 


mettre en (86-87) l'adresse ... 

96E6 

A5CE 

LDA CE 

de la variable suivante : 

96E8 

6907 

ADC «07 

(86) = (86) + 7 

96EA 

8586 

STA 86 


96EC 

A900 

LDA «00 

puis continuer pour transférer 

96EE 

F0B7 

BER 96A7 

les var et tableaux qui suivent 

96F0 

60 

RTS 


fin si ’S’ + octet different .. 

96F1 

EA 

NOP 


de ’D'.’O' ou ’E'. 

96F2 

EA 

NOP 




-- INPUT 




96F3 

20E200 

JSR 

00E2 

lire l’octet suivant 

96F6 

C922 

CMP 

«22 

est-ce un guillemet ? 

96F3 

DOOB 

BNE 

9705 

si non, passer a la suite 

96F A 

2025D0 

JSR 

D025 

calculer la longueur du message 

96FD 

A93B 

LDA 

«38 

charger A avec B3B=code de ';’ 

96FF 

2067D0 

JSR 

D067 

et tester si un ; suit le mess. 

9702 

20B3CC 

JSR 

CCB3 

afficher le nessage d'invite. 

9705 

20D2D4 

JSR 

D4D2 

rétablir le pointeur basic. 

9708 

A92C 

LDA 

«2C 

placer une ',' de code «2C au 

970A 

3534 

STA 

34 

début du tampon d’entree, 

«70C 

A900 

LDA 

«00 

mettre a zéro le drapeau qui ,. 

970E 

8517 

STA 

17 

indique la sortie par 'Ctrl C'. 

9710 

2080CD 

JSR 

CD80 

afficher '? ’ puis appeler ., 

9713 

8682 

STX 

B2 

l’Editeur basic, 

9715 

8483 

STY 

B3 

sauver le Ptr-Txt 

9717 

A535 

LDA 

35 

le tampon est-il vide ? 

9719 

DQ07 

BNE 

9722 

si non, passer. 

9718 

A517 

LDA 

17 

si oui, sotie par ’ctrl C' ? 

971D 

F0E9 

BEQ 

9708 

si non, recommencer l'Edit 

971F 

4C7CCD 

JMP 

CD7C 

si oui, arrêter le programme, 

9722 

98 

TYA 



9723 

852C 

5TA 

2C 

sauver Y dans 2C, 

9725 

2088D1 

JSR 

0188 

identifier la variable 

9728 

8588 

STA 

88 

et sauver son adresse en 88-89 

972A 

8489 

STY 

89 


972C 

A5B5 

LDA 

B5 

charger le masque de la var. 

972E 

1003 

BPL 

9733 

tester si elle est Reelle. 

9730 

4C9CCD 

JMP 

CD9C 

si non, saut a l’Input en Rom. 

9733 

A5EA 

LDA 

EA 

empiler le Ptr-Txt ... 

9735 

48 

PHA 


poids fort ... 

9736 

A5E9 

LDA 

E9 

puis poids faible. 

C 73E 

48 

PHA 




34 












973? 

A6B2 

LDX B2 

placer le pointeur basic au ., 

973B 

E8 

1NX 

a la Fin du tanpor. 

973C 

86E9 

5TX E9 

(adr, sauvee en B2-B3). 

973E 

A6B3 

LDX 83 


9740 

86EA 

5TX EA 


9742 

20FAC5 

•JSR C5FA 

appeler l’Interpreteur Basic 

9745 

A5B4 

LOA 84 

placer ensuite en 32 la lere .. 

9747 

8532 

STA 32 

lettre de la variable, 

9749 

A5B5 

LDA B5 


974B 

D002 

BNE 974F 

placer en 33 la 2eme lettre 

974D 

A920 

LDA «20 

ou un 'esp' si le no» de la 

974F 

8533 

STA 33 

variable n’en co»porte qu’l. 

9751 

A9D4 

LDA «04 

charger A avec le code de '=' 

9753 

8534 

STA 34 

et le Mettre en 34. 

9755 

A932 

LDA 032 

placer ensuite le pointeur sur 

9757 

B5E9 

STA E9 

la première lettre ., 

9759 

20E800 

JSR 00EB 

lire cet octet .. 

975C 

201CCB 

•JSR 08IC 

et effectuer un ’Let’. 

975F 

68 

PLA 


9760 

85E9 

STA E9 

rétablir alors le Ptr-Txt .. 

9762 

68 

PLA 

sur l'octet qui suit le no» de 

9763 

85EA 

STA EA 

la variable .. 

9765 

20E800 

•JSR Û0E8 

et le lire. 

9768 

C92C 

CMP 02C 

s'agit-il d'une V ? 

976ft 

F087 

BER 96F3 

si oui, relancer l'Input. 

976C 

D023 

BNE 9791 

si nom retour au Basic. 


- RESTORE - 


976E 

20E200 

JSR 00E2 

lire l’octet qui le suit, 

9771 

D005 

BNE 9778 

si non vide, passer a la suite. 

9773 

2052C9 

JSR 0952 

si vide, appeler la routine 

9776 

0019 

BNE 9791 

en Ro» et revenir au basic. 

9778 
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SEC 


9779 

2053E8 

JSR E853 

calculer le mmero de la ligne. 

977C 

20P3C6 

JSR C6B3 

chercher son adresse. 

977F 

8003 

BCS 9784 

tester si la ligne existe. 

9781 

4C23CA 

JHP CA23 

si non.Undef'd State»ent Error 

9784 

A5CE 

LDA CE 

<B0): pointeur Data 

9786 

E9C1 

SBC 001 

(CE): adresse du 1er octet de 

9788 

A4CF 

LDY CF 

la ligne que l’on pointe. 

978A 

B001 

BCS 978D 

on place le Ptr-Data sur .. 

978C 

88 

DEY 

l’octet qui précédé par: 

973D 

8580 

STA B0 

(B0)=(CE)-1 

978F 

8481 

STY B1 


9791 

4CE800 

JMP 00E8 

puis on revient au basic. 


-- GETCAR - 


9794 

EA 

N0P 

routine détournée en 00EF, 

9795 

0992 

CMP 092 

s'agit-il d'un Inout ? 

9797 

D003 

BNE 979C 

si non, passer en 979C. 

9799 

4CF396 

JMP 96F3 

si oui,executer la routine. 

979C 

C99A 

CMP 09A 

de meme, un Restore ? 

979E 

D003 

BNE 97A3 

si non, passer au test suivant 

97A0 

4C6E97 

JMP 976E 

si oui, détourner l'execution. 

97A3 

C90D 

CMP 0DD 

comparer a T 

9705 

D00D 

BNE 97B4 

si different, fin de Getcar, 

97A7 

A001 

LDY 001 

si ’S’ alors ., 

97A9 

B1E9 

LDA <E9)iY 

lire l’octet qui le suit. 

97AB 

0928 

CMP 028 

s'agit-il d'une ’(’ ? 

97AD 

F003 

BEQ 97B2 

si oui, continuer 

97AF 

4C0396 

JMP 9603 

si non, rechercher de quelle .. 


97B2 

A9DD 

LDA «DD 

ordre il s'agit,et l'executer. 

97B4 

4CB9EC 

JMP ECB9 

test sur drapeaux et fin. 

— 

INITIALISATION —- 


97B7 

EA 

N0P 


97B8 

A908 

LDA «08 

diwinuer le delai de répétition 

97BA 

3D4E02 

STA 024E 

du clavier et augmenter sa .. 

97BD 

A902 

LDA «02 

vitesse. 

97BF 

8D4F02 

STA 024F 

(! mais sur At»os uniquement !) 

97C2 

A002 

LDY «02 


97C4 

B9D497 

LDA 97D4.Y 

détourner le ’Readv' par .. 

97C7 

991A0Ü 

STA 001A.Y 

un JMP 97DA en 001A .. 

97CA 

B9D797 

LDA 97D7,Y 


97CD 

99EF00 

STA 00EF.Y 

et la routine Getcar par .. 

9700 

88 

DEY 

un JMP 9795 en 00EF. 

97D1 

10F1 

BPL 97C4 


97D3 

60 

RTS 

puis revenir au basic. 

97D4 

4CDA97 

JMP 97DA 


97D7 

4C9597 

JMP 9795 



Arrêt - 



97DA 

A095 

LDY «95 

placer H95FF en A6-A7 .. 

97DC 

A9FF 

LDA «FF 

ce qui correspondra a un ., 

97DE 

84A7 

STY A7 

Hime» «95FF des la première .. 

97E0 

85A6 

STA 06 

modif du prg ou le 1er Clear. 

97E2 

A90B 

LDA «08 

charger 0 avec «0B=11 et le .. 

97E4 

8D6A02 

STA 026A 

placer dans le registre d'etat. 

97E7 

A910 

LDA «10 

A=16 , code du papier noir .. 

97E9 

8D6B02 

STA 026B 

a placer en 026B. 

97EC 

A906 

LDA «06 

A=6 , code de l'encre cyan .. 

97EE 

8D6C02 

STA 026C 

a placer en 026C. 

97F1 

A097 

LDY «97 

YA contient l’adresse du messag 

97F3 

A9F8 

LDA «F8 

a afficher a la place du’Ready' 

97F 5 

4CB0CC 

JMP CCB0 

afficher puis retour au basic. 

97F 8 

206F6B3AOO ok: 

message re»placant le 'Ready'. 


DERNIERE MINUTE 

L'auteur du programme nous communique une 
petite modification permettant des entrées multi¬ 
ples pour les réels, sur un INPUT ; sans elle 'REDO 
FROM START' provoque une 'SYNTAX ERROR'. 
La modification touche quelques lignes ; elle est 
listée ici. 


ioo • - 
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101 • 

200 

»- 

— 

— 

— 

102 ' Modification de UT1L pour 

201 

Modification test de ’lnput' 

103 ' transformer le 1 INPUT' calcule. 

202 





104 ’ (pour les reels). en ’SIHPUT'. 

203 

' 9794 

EA 

NOP 


105 ' Le '1NPUV fonctionne alors 

204 

' 9795 

099A 

CMP 09A 

Restore 

lOi ' coue d'habitude et peraet donc 

205 

1 9797 

0003 

BNE 9790 


107 ' les 'entrées eultiples'. 

206 

' 9799 

406E97 

JMP 976E 


108 ' 

207 

' 9790 

0900 

OMP 8DD 

•s* 

109 ’ Legal Th. 

208 

1 979E 

0014 

BNE 9784 


110 ’- 

209 

' VM 

A001 

LDY 801 


111 ' 

210 ' 97A2 

B1E9 

LOA (E91.Y 


112 ’ Lignes a eodifier 153 a 157 

211 

' 97A4 

0928 

OMP 828 

•C 

113 ‘ 

212 

' 97A6 

FOOA 

BEA 9782 


153 DATA ei,4C,E8,00,EA,09.9«,00,R502 

213 ' 97A8 

20E200 

JSR 00E2 


154 DATA 03,4C , 6£,97.CV, 00.00. 14 , H3DE 

214 

' 97AB 

0992 

OMP 892 

Input 

155 DATA AO,01,81.E9.C9,28.FO,OA.8426 

215 

' 97A0 

FOEB 

BEA 976A 


156 DATA 20.E2,00,09,92,FO,88,40,8454 

216 

' 97AF 

400696 

JMP 9606 


157 DATA 06,96.A9,D0.4C,B9.E0,EA.84FD 

217 

' 9782 

A9D0 

LDA 800 

•S" 

159 ' 

218 

' 9784 

4CB9EC 

JMP ECB9 


160 'et en ligne 490 

219 

' 9787 

EA 

80P 


161 ' 

220 

1 




162 ' 490 SI HAUT •A* 1 A, *8 ... 

221 


— 
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MODIFICATIONS DU 
MONITEUR IX) 


Henry GARIN 


N ous avons publié dans nos 
colonnes bon nombre de 
modifications concernant cet 
excellent moniteur édité par 
LORICIELS. Vous avez pu remar¬ 
quer une erreur dans celles décri¬ 
tes par M. TORDJMAN (THEO- 
RIC n° 5) : l'exécution en pas à 
pas perturbe le contenu de Y. 
Nous publions ici un rectificatif. 
L'objet de cette nouvelle descrip¬ 
tion est de permettre l'utilisation 
du MONITEUR 1.0 dans la RAM 
Overlay, avec un lecteur JAS¬ 
MIN. Les possesseurs de ce 
matériel seront donc comblés. 
Les fonctions I, 0, V, Entrée d'oc¬ 
tets, Entrée ASCII, sont désor¬ 
mais accessibles en RAM Over¬ 
lay. 

Le listing fourni a été écrit au 
moyen de l'assembleur de 
MICROLOGIC. Vous pourrez soit 
utiliser un assembleur pour les 
introduire, soit repérer ces modi¬ 
fications et les faire au moyen du 
moniteur lui-même. 

Bon travail ! 


Monsieur Gilles CLAVEQUIN rec¬ 
tifie une petite erreur (article de 
Hervé TORDJMAN). 

Les connexions des "BUGS” du 
moniteur 1.0 de LORICIELS 
entraînent un nouveau BUG. Le 
mode TRACE (ou STEP) ne fonc¬ 
tionne plus lorsqu'on utilise le 
registre Y. 

L'anomalie se situe à la ligne 
7672 du listing transmis par l'au¬ 
teur de ce logiciel. 

On lit : 

7672 : 8C B2 82 STY $82B2 
Il faudrait lire : 

7672 : 8C B2 83 STY $83B2 
Voici pour vous permettre de 
vérifier l'anomalie. Le moniteur 
1.0 (ou 1.1) étant chargé, entrez 
le programme suivant : 

A000 LD Y # $00 
LDA #$41 
STA $BB80,Y 
INY 

CPY #$03 
BNE $A004 
RTS 

Faites ensuite TA000 (CTRL C 


pour stopper). 

Comment corriger ce BUG : 
Lorsqu'on a suivi les indications 
de l'auteur, il faut recharger BUG- 
MON et remplacer la valeur # 82 
en #7674 par #83. Relancer le 
programme de connexion par 
G 76BA ou CALL #76BA puis 
sauver à nouveau BUGMON (et 
vérifier par TAOOO). 

Pour ceux qui utilisent une ver¬ 
sion "déplombée" de Moniteur 
1.0 (ou 1.1), il faut placer #83 
en # 81 F8 (depuis le moniteur) ou 
par poke depuis le Basic et ne pas 
oublier la sauvegarde. 



Assembleur 6502 

PAGE 

1 M0DM0NL0 

1 


TTL M0DM0NL0 

2 


OPT C .• L .> P / S > T 

3 

:f 


4 

\ 


5 

f 

MODIFICATION MONITEUR 1.0 LORICIELS 

è 

t 


7 

* 

Pour travail sur RAM Overlay avec lecteur 

g 

:* 

de diskettes JASMIN TRAN 

9 

:f 


10 

f 

— 

11 

* 


12 

* 

sauf indication contraire* les modifications 

13 

* 

Peuvent etre faites a l'aide du moniteur 

14 

\ 

<fonction ! entree d’octets) 

15 

* 


16 

i 

sauve9arde du moniteur modifie Par • 

17 

* 

! SAVE"NOM.BIN,#7800,#986E" 
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Vous-êtes un passionné 
d« micro-informatique ? 


«Sr" 

Î’tHEOR'C' . 

ERTl .' HECIOR* eN ' 
pO et n 



Vos propositions seront examinées avec soin, quelle 
que soit la présentation de votre manuscrit. Prenez 
contact avec M. Marcel LEJEUNE au (9V) 52.98.11 . 


Collection Poche ou collection plus importante, nos 
collections sont réalisées avec une équipe de colla¬ 
borateurs compétents, aptes à vous aider et à vous 
conseiller. 


Editions SORACOM 

10, •* 4e G1 4* GmIU 
35170 BKUZ 
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CASSE BRIQUES 


ENCORE UN 
CASSE-BRIQUES ? 

Q ue les lecteurs qui disposent 
déjà de cent-cinquante ver¬ 
sions de ce jeu nous pardonnent : 
notre propos n'est pas de procu¬ 
rer un amusement particulier ori¬ 
ginal, mais de prendre un exem¬ 
ple assez simple pour débuter en 
FORTH dans le domaine de l'ani¬ 
mation graphique en basse réso¬ 
lution. 

Nous en profiterons toutefois 
pour épater une fois de plus les 
tenants du Basic par la rapidité 
qu'un tel jeu peut acquérir quand 
il est programmé dans notre lan¬ 
gage. 

PRINCIPES DU JEU 

Une balle se déplace sur un ter¬ 
rain rectangulaire rebondissant 
sur trois côtés, tandis que le qua¬ 
trième côté est tenu par une 
raquette que le joueur déplace par 
les flèches gauche et droite du 
clavier. Sur le terrain est disposé 
un mur de briques que la balle éli¬ 
mine une à une, mais les rebonds 
en chaîne donnent parfois à la 
balle une trajectoire déroutante : 
le but du jeu consiste à casser le 
maximum de briques sans perdre 
la balle. 

La difficulté, dans notre version, 
vient du fait que la balle prend un 
peu plus de vitesse à chaque bri¬ 
que cassée... 

LE PROGRAMME FORTH 

Il est contenu dans les trois 
écrans ci-contre, compilables par 
le noyau FORTH sans extension 
particulière (il vous faut toutefois 
EDITOR pour le rentrer une pre¬ 
mière fois). 

Examinons les mots qui le cons¬ 
tituent en précisant chaque fois 
l'action sur la pile selon la nota¬ 
tion conventionnelle. 

Nous commençons par quelques 
mots d'usage très général, utili¬ 
sables dans de prochaines appli- 


Michel ZUPAN 


cations : 

ICI (x y — adr) fournit une 
adresse de la mémoire d'écran à 
partir des coordonnées x et y. 
Pour simplifier, nous avons choisi 
le système de coordonnées habi¬ 
tuel de l'ORIC tel qu'il est utilisé 
dans la fonction PLOT du BASIC. 
A noter que nous ne vérifions pas 
les limites de validité de x et y. 
AT (x y —) positionne le curseur 
en x, y à la façon du PRINT AT. 
Là encore, x et y ne sont pas tes¬ 
tés dans les limites de l'écran, ce 
qui serait souhaitable dans des 
applications interactives. 

CHS! (adr — ) change le signe 
d'une variable. 

NOT (b — not-b) inverse le boo¬ 
léen d'une condition vraie ou 
fausse (c'est-à-dire un ou zéro). 
O/N (--- b) attend au clavier la 
frappe d'un O ou d'un N et laisse 
1 si c'est O (Oui), zéro si c'est N 
(Non). 

Définissons les constantes et 
variables du programme : 
BALLE, BRIQUE, BORD sont les 
caractères utilisés. 

POS est la position de la balle (en 
adresse écran). 

RAQ est la position de la raquette 
(relative en colonnes). 

LIMITE est le début de la dernière 
ligne d'écran. 

DX est le vecteur déplacement en 
abscisse. 

DY est le vecteur déplacement en 
ordonnée : c'est un multiple de 
40, longueur d'une ligne d'écran. 
POINTS et RECORD s'expliquent 
d'eux-mêmes. 

TEMPO est la variable de tempo¬ 
risation utilisée par PAUSE (—) 
qui fait TEMPO fois ... rien ! 

Passons aux éléments du décor 
de notre jeu. 

COLOR (---) dispose des attributs 
de couleur dans les colonnes 
réservées. 

CADRE (---) dessine les limites du 


terrain. 

B (x y —) est une primitive de 
MUR posant une brique en x, y. 
MUR (—) construit le mur de bri¬ 
ques. 

TERRAIN (---) regroupe les mots 
précédents. 

RAQUETTE (---) dessine la 
raquette à la position RAQ. 


Les mouvements de la balle sont 
obtenus facilement par : 
EFFACE (—) supprime l'image de 
la balle. 

AFFICHE (—) affiche la balle. 
BOUGE (—) applique à POS les 
déplacements DX et DY. 


La raquette est déplacée par 
JOUE (---) qui teste le clavier en 
520 (hexa # 208) et modifie RAQ 
dans les limites de l'écran. 

Les déplacements de la balle font 
l'objet de deux tests : 

?BORD (---) effectue les rebonds 
des bords et de la raquette. 
7BRIQUE (—) teste si une brique 
est cassée et, dans ce cas, ajoute 
un point, diminue TEMPO, effec¬ 
tue un PING que nous avons rem¬ 
placé par 7 EMIT pour éviter l'uti¬ 
lisation de l'extension sonore. 


Tous les éléments du jeu sont en 
place : 

DEBUT (—) initialise le jeu et les 
variables. 

SCORE (---) affiche les points et 
le record mis à jour. 

PARTIE (—) contient la boucle 
principale du jeu avec les dépla¬ 
cements, les tests et la tempori¬ 
sation par PAUSE. Elle ne prend 
fin que lorsque la balle dépasse 
LIMITE. 

Enfin, JEU (—) enchaîne les par¬ 
ties avec l'affichage du score 
jusqu'à l'abandon du joueur. 
Notre dernier écran s'achève par 
la redéfinition des caractères 
BALLE et BRIQUE, la suppression 
du clic clavier par un POKE 
618,10 plutôt que par KLCK qui 
agit en bascule et le lancement 
immédiat de JEU dès la fin de la 
compilation par 1 LOAD. 

Le jeu commence sagement 
comme un équivalent Basic, mais 
la vitesse de la balle ne va pas 
manquer de devenir infernale : 
accrochez-vous ! 
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SCRN# 
< 0) 

( 1 ) 

( 2 ) 

< 3) 

< 4) 

< 5) 

< 6 > 

< 7) 

< 8 ) 

< 9) 

< 10 ) 
< 11 > 

< 12 ) 

< 13) 

< 14) 

< 15) 


SCRN# 
< 0 ) 

< 1 ) 

< 2) 

< 3) 

< 4) 

< 5) 

< 6 ) 

< 7) 

< 8 ) 

< 9) 

< 10 ) 
( 11 ) 

< 12 ) 

< 13) 

< 14 ) 
(15) 


SCRN# 
( 0 ) 

( 1 ) 

( 2) 

< 3) 

( 4) 

< 5) 

< 6) 

< 7) 

< 8 ) 

< 9) 
( 10 ) 
( 11 ) 
( 12 ) 

(13) 

(14) 

(15) 


1 

( CASSE-BRIQUES pour FQPTH sans extensions ) 

FORTH DEFINITIONS DECIMAL 
( 1- Mots d'usage general ) 

ICI 40 * + 48040 + ; 

AT CR 40 * 48040 t 18 ! 817 C! . ; 

CARACTERE 8 * 46079 + DUP 8 + DO I C! -1 +L00P ; 

CHS! DUP @ -1 * SWAP ! ; : NOT 1 XOR ; 

0/N 0 BEGIN DROP KEY DUP 79 = SWAP 78 = OVER OR UNTIL ; 

( 2- Constantes et variables ) 

124 CONSTANT BALLE 92 CONSTANT BRIQUE 12b CONSTANT BORD 

0 VARIABLE POS 0 VARIABLE PAO 0 25 ICI CONSTANT LIMITE 

1 VARIABLE DX 40 VARIABLE DY 

0 VARIABLE POINTS 0 VARIABLE RECORD 900 VARIABLE TEMPO 

: PAUSE TEMPO @ 0 DO LOOP ; 

—> 


CASSE-BRIQUES suite ) 


3 + ICI C! LOOP 


I ICI C! LOOP 


3- Eléments du jeu 
COLOR 0 PAPER 6 INK 6 1 DO I 1 I 

2 1 0 ICI C! 3 1 25 ICI C! ; 

CADRE 40 2 DO BORD I 1 ICI C! LOOP 

25 1 DO BORD DUP 2 I ICI C! 39 
B BRIQUE ROT ROT ICI C! ; 

MUR 39 3 DO 1 4 B I 6 B I 8 B I 1+5B1 1+7B2 +LOOP ; 
TERRAIN CLS COLOR MUR CADRE ; 

RAQUETTE LIMITE RAQ @ + 32 OVER C! 6 1 DO BORD OVER I + C! 
LOOP 6+32 SWAP C! ; 

( 4- Mouvements ) 

EFFACE 32 POS @ C! ; : AFFICHE BALLE POS @ C! ; 

BOUGE DX @ POS + ! DY @ POS +! ; 

JOUE 520 C@ DUP 172 = IF RAQ DUP @1-2 MAX SWAP ! THEN 
188 = IF RAQ DUP @ 1+ 33 MIN SWAP ! THEN ; 

—> 


< 5 - Tests CASSE-BRIQUES suite et tin ) 

• ?BORD POS @ DUP DX @ + C@ BORD = IF DX CHS! THEN 

DY @ + C@ BORD = 1F DY CHS! THEN ; 

• ^BRIQUE POS @ C@ BRIQUE = IF DY CHS! 1 POINTS +! -10 TEMPO +! 

7 EMIT THEN ; 

( 6 - Jeu, redéfinitions et lancement ) 

: DEBUT TERRAIN 18 23 ICI POS ! 18 RAQ ! 1 DX ! -40 DY ! 

0 POINTS ! 900 TEMPO ! RAQUETTE ; 

: SCORE 3 0 AT ." SCORE " POINTS © . ." RECORD * 

RECORD DUP @ POINTS @ MAX DUP ROT ! . ; 

• PARTIE DEBUT BEGIN EFFACE BOUGE /BRIQUE ?BORD AFFICHE JOUE 

RAQUETTE PAUSE POS @ LIMITE > UNTIL ; 

: JEU BEGIN PARTIE SCORE Autre partie ? " O/N NOT UNTIL CLS ; 
0 14 31 31 31 31 14 0 BALLE CARACTERE 
63 33 33 33 33 33 33 63 BRIQUE CARACTERE 
10 618 C! JEU ;S 
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S *il est des thèmes connus 
dans les jeux d'arcades ou 
électroniques, celui-ci en est cer¬ 
tainement l'un des plus célèbres. 

Ramassez les champignons sans 
vous heurter aux obstacles ét 
sans vous laisser rejoindre par le 
fantôme. 

Ecrit en Basic pour ATMOS, le 
programme pourra être transposé 
pour ORIC-1 moyennant une 
reprise des différents "PLOT”. 
Amusez-vous bien, et si vous 
voulez comprendre comment ça 
marche, jetez un coup d'œil sur 
la description du programme. 

17-19 : réglage des niveaux 
sonores et de difficulté. 

25-138 : positionnement aléa- 
toirè des champignons et des piè¬ 
ges. 

9 KM 

10 COSUBIOOO 
15 GOSUB3000 
16 N=3 

17 CLS:INPOT*NtVEAU':S 

16 PR IKT : PR I HT : PR 1KT : INPUT -9011110: ( 0 - 10) "VO 
19 IFVO<OOSVO>I0TNEN18 
20 GÛSUB2000 

23 H=IHT(R*D(11137»*3 :Z=IHT(RND<11*241*2 

30 PT=0:H=3:X=I8:Y=14 

40 PLAY1,0,0,0 

50 ft=IHT< RHD( 1 (t37 )*3 

55 S0UND1.200.VO 

60 B=INÎIRKD(1)I24)*2 

70 PL0TA.B.229 

80 CMNTIRHX 1)1371*3 

90 D=1NT(RKD( 111241*2 

100 PL0ÎC.D.V 

105 SOUND 1,175,VO 

110 E=IHT(RND(1)*27)*3 

120 F=IHT(RHD11)1241*2 

130 PLOTE.r,* 

135 FORT =lTOS 
137 PLOTX.Y.* ■ 

138 SOUNDMSO.VO 

140 1FPEEK! 12081=188THENX=X*1 

150 I FPEEK 1 42001“172THD(X=X-I 

160 IFPEEXI42081M56THENYM-I 

170 1FPEEXI42081=I8OTH0IY S Y*1 

180 IFPEEK142081 = 132THENGOSU84000 

182 IFX>39THENX=39 

184 IFX<3THOK=3 

186 1FY>26THEHY=26 

188 1FY:2TI0Y=2 

189 SOUND1.125,V0 

190 ! FSCRNIX. Y )=2297105000 

200 !FSCRMIX.Y)=103THEHPT=PT +10:GOSUB6000 

210 SOUND1.100.V0 

215 iFK/2=1HT4K/21THEHA*=■a*ELSEAI=*h* 


CROCKY 


Stéphane et Laurent KERLOCH 


140-180 : scrutation clavier. 

PT 

: points. 

182-188 : test de sortie d’écran. 

X 

: position horizontale du bon¬ 
homme. 

190-200 : test de rencontre. 

Y 

: position verticale du bon¬ 

210-220 : affichage du bon¬ 


homme. 

homme. 

W 

: position horizontale du fan¬ 

225 ! affichage des points. 


tôme. 

235-999 : déplacement du fan¬ 

Z 

: position verticale du fan¬ 

tôme. 


tôme. 

1000-1240 : redéfinition de 

A 

: position horizontale du 

caractères. 


piège. 

2000-2070 : afficnage de la ligne 

B 

: position verticale du piège. 

supérieure. 

C 

: position horizontale du 

3000-3540 : présentation. 


champignon. 

400G-4070 : téléportation. 

D 

: position verticale du cham¬ 

5000-5080 : destruction du bon¬ 


pignon. 

homme. 

E 

: position horizontale de l'ef¬ 

6000-6050 : bruit. 


facement. 

7000-8010 : fin de partie. 

F 

: position verticale de l'effa¬ 
cement. 

M : nombre de vies. 

K 

: position des jambes. 

S : niveau de difficulté. 

VO : volume. 

A$ 

: bonhomme. 


220 PLOTX.Y.A* 

225 PR 1 HT®11,0:PT 

226 K=K*1 

227 IFX=8ANDY=ZTHEN5000 
230 NEXTF 

235 PLOT».Z/ • 

240 1FV<XTHENÏ=»*I 
250 !F*>XTHENN=V-I 
260 IFZ<YTHENZ=Z*I 
270 IFZ>YTHENZ*Z-| 

275 SOUND!.75.V0 
280 PLOTÏ.Z.230 
285 SOUND1.50.V0 

999 COTO50 

1000 DATA0.28,28,8,62,8,20.34 
1010 DATA0,8,8,8.42.20.8,0 
1020 DATAO,0,8,16,47,16.8.0 
1030 DATAO.0,4,2,61,2.4,0 

1040 DATA30,33,45,45,45,45,33,30 

1050 DATA35,1,21,1,1,1.1.21 

1060 DATAO.30,63,63.45,12,12.12 

1070 DATAO,28,28,8.62,B,20,20 

1200 F0RAM6856T046919 

1210 READB 

1220 POKEA.B 

1230 NEXTA 

1240 RETURN 

2000 CLS 

2010 PRIKTCHR4(133)"SCORE :’CHRf4130)* ‘CHRI11331‘NIVEAU :-CHU*(I 

2020 PR1NTCHR1U33)'VIES :‘CHRI1130IK 

2030 PR1NTCHR1 (1291*-* 

2070 RETURN 

3000 TEXT:ttS:POKE426A,10:PAPER0:1HX3 

3010 PRIHT:PRIHT:PR1HTCKR*(41 

3020 PRINTCHR4U42I 1 .... CROKY ....* 

3030 PRIMTCHR414> 

3040 PR1NTCHRK1291- -* 

3050 PRIHT'PR I HT : PRIHT : PRI HT 
3055 GOSUB3500 
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3060 PRINTCHR*(135)* 
3080 PR I(fICHR* (130) ’ 
3090 PR INTCHR K131)“ 
3100 PRINÎCHR4II33]* 

3110 PRuncromî?!* 

3120 PRIKTCHR1I134)" 


IHSTRUCTIONS•: PRI HT 
• = HAUT” 

b = BAS* 

C = GAUCHE” 

d = DROITE” 

ESPACE = TELEPORTATION” 


3130 PRINT:PRINT:PRINTCHR*(1*01” ! TAPEZ ESPACE POUR JOUER 1” 


3140 REPEAT:GETR!;UNÎ1LR!=” * 

3490 RETURN 

3500 PRINTCHR*(! 35 > * PAR'CHR*41 30 )’S'CHR*( 135 ) ”&*CHR*11 30 » *L*: 

3505 PRINTCHR!U29CKERL0CH” 

3510 PRINT:PRIHTCHR*(134)* •CHRI(96)CHRI(131)"JANV!ER”CHR!(133): 

3520 PRINT*1985* 

3530 PRINT : PR INT 
3540 RETURN 
4000 PLOTI.Y,” ’ 

4010 F0RA=31T01STEP-1 
4020 SOUND1,A.VO*3 
4030 NEXT 

4040 X= INT(RND( 11I37H3 


4050 Y=INT(RND( 1)1241*2 
4060 PLOTX,Y, V 
4070 RETURN 

5000 EXPLOOE:FORA=1TO50 
5010 PLOTX,Y,”e* 


5020 PLOTX.Y. 226 
5030 PLOTX.Y. •f'” 

5040 PLOTX,Y,225 
5045 NEXT 
5050 N=H-1 
5055 PLAY1,0,0,0 
5060 PRINT836.0.-H 
5070 IFH=0THENGOTO7000 
5075 X=1B :Y=14 
5080 GOTO50 
6000 F0RA=!T02 
6010 FOR8-100T070STEP-1 
6020 SOUND 1,B,VO*2 
6030 NEXTB 
6040 NEXTA 
6050 RETURN 

7000 CLS:PLAY1,0.0,0:INK5 

7010 PR1NT:PRINT:PRINTCHRI(140ICHRI11301* ENCORE UNE PARTIE’* 

7020 PR!NT:PRINT:PRINÎ” [ O/N 1* 

7030 CETREPI 

7040 1FREPI=”0”THEKRUN 

7050 IFREPI=”N”THE»8000 

7060 IFREPIO’O'ANDREPIO’N’THBITOOO 

8000 CLSiPLAYl,0,0.0:PORA=200T050STEP-1iSOUNDl,A.VO*2:NEXT 

8010 PLAYO.0,0,0 EHD 


MÉMOIRE TROUBLÉE 


O combien de chargements, 
avortés par un défaut de la 
cassette ou un mauvais niveau de 
sortie du magnétophone, ou 
encore à cause d'un appui sur 
RESET, se terminent par une 
ligne 21845 UUU... Pourquoi ? 
A la mise sous tension, ORIC pro¬ 
cède, entre autres, à une tâche 
de contrôle de sa mémoire 
(RAM). Une routine ROM est là 
pour ça et écrit la valeur #AA à 
chaque emplacement, puis relit 
immédiatement après. Si à la lec¬ 
ture, il ne trouve plus la valeur, 
il décrétera la présence d'un 
défaut. La même opération est 
réalisée ensuite avec la valeur 
#55. 

Pourquoi ces deux valeurs ? Sim¬ 
plement parce qu'elles permet¬ 
tent de tester chaque bit de cha¬ 
que adresse ; observez : 

#AA = 10101010 

#55 = 01010101 

Vu ? Chaque bit a été mis une 

fois à 1 et une fois à O. 

La dernière séquence étant celle 
effectuée avec la valeur 55, cha¬ 
que adresse non utilisée de la 
mémoire va la garder jusqu'à ce 
qu'un programme ou des don¬ 
nées viennent s'inscire per des¬ 
sus. 


Allons plus loin. Si vous avez lu 
THEORIC n° 3, page 13, vous 
savez comment un programme 
est rangé en mémoire. Rappelons 
cela brièvement. La structure 
d'une ligne est la suivante : 

iPointeuriNuméro| Contenu ligne i OO | 


Le "pointeur", codé sur deux 
octets, contient l'adresse du 
contenu de la mémoire située 
immédiatement après le code OO 
(terminateur de ligne). A cet 
endroit, on retrouve un pointeur 
qui donne l'adresse de la ligne 
suivante, et ainsi de suite... Les 
lignes sont "liées", "chaînées" 
les unes aux autres par ces poin¬ 
teurs. 

Imaginons maintenant que, pour 
une des raisons citées au début 
de cet article, le chargement soit 
perturbé ou interrompu en plein 
milieu d'une ligne. Que se passe- 
t-il ? Le pointeur de cette ligne 
désigne toujours l'adresse du 
début de la ligne suivante, or 
celle-ci n'existe pas. Qu'y a-t-il en 
mémoire à sa place, si nous 
venons de mettre ORIC sous ten¬ 
sion ? Des codes # 55, vous avez 
gagné ! 


ORIC cherche à afficher une ligne 
dont l'adresse de début lui est 
donnée par le pointeur de la ligne 
suivante, et qui n'existe pas. Il va 
néanmoins lire la mémoire (il est 
discipliné), et affiche le caractère 
ASCII dont le code est #55, et 
c'est... la lettre U. 

Mais le 21845 dans tout cela ? 
D'où sort ce numéro de ligne ? 
Nous avons vu que le pointeur, 
codé sur deux octets est suivi du 
numéro de ligne, codé lui aussi 
sur deux octets. Le codage s'ef¬ 
fectue "octet le moins significa¬ 
tif en tête". Voyons cela avec le 
numéro de ligne 2000. 

2000 s'écrit en hexadécimal 
07D0. 

On peut, à partir de 07DO retrou¬ 
ver 2000 en faisant la conversion 
des deux octets. 

07 = 07 décimal 
DO = 208 décimal 
2000 = 256x7 + 208. 

Que se passe-t-il dans "l'esprit" 
d'ORIC lors du codage du numéro 
de ligne qui n'existe pas ? Il code 
#5555 et cela donne : 

55 = 85 décimal 
85x256 + 85 = 21845 
C'est plus clair maintenant ? En 
informatique, il n'y a pas de 
mystères et peu de hasard ! 
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Qui êtes-vous, M. BROCARD ? 
Un homme qui court ! En effet, 
si je suis l'auteur de MEURTRE A 
GRANDE VITESSE, j’ai égale¬ 
ment écrit une dizaine d'autres 
logiciels qui ont été édités, 
comme par exemple POLYFI- 
CHIER. Inutile de vous dire que 
cela suffirait à m'occuper à plein 
temps..., mais je suis également 
responsable de la société ARG 
Informatique qui a déjà édité plus 
de 50 logiciels pour micro¬ 
ordinateurs familiaux. Le succès 
de notre nouvelle collection pré¬ 
sentée sous la marque COBRA 
SOFT nécessite également un 
travail important pour améliorer 
les circuits de distribution, pro¬ 
mouvoir les produits, suivre le 
travail des programmeurs, penser 
à l'avenir et assurer la gestion 
quotidienne... Je suis heureuse¬ 
ment assisté d'une équipe effi¬ 
cace ! 

Sur un plan plus personnel, j'ai 32 
ans, je suis marié et père d’une 
petite fille de 10 mois. 

Comment êtes-vous venu à l'in¬ 
formatique ? 

Comme beaucoup, j'ai découvert 
la micro-informatique en 1980. 
Passionné, l'achat d'un APPLE ou 
du TRS 80 n 'était pas envisagea¬ 
ble pour moi à l'époque, et vous 
imaginez mon enthousiasme 
quand DIRECO a mis en vente le 
ZX80 à 1200 francs ! J'ai donc 
fait mes premières armes sur ce 
micro, puis sur un ZX81 et un 


INTERVIEW 

BERTRAND 

BROCARD 


OR/C-1. Je participais également 
aux activités du Club MICROTEL. 
En 1983, j'étais imprimeur, et 
peu à peu la micro-informatique 
a pris le pas sur l'imprimerie... 
J'ai proposé des softs à des édi¬ 
teurs, mais compte-tenu des 
conditions proposées, j’ai préféré 
les éditer moi-même. Quelques 
mois plus tard, je m'associais 
avec Gilles B ER Tl N (l'auteur de 
COBRA PINBALL, entre autres 
logiciels), et c'était la naissance 
d'ARG Informatique. Mon expé¬ 
rience d'imprimeur nous a servi, 
puisque 18 jours après la sortie 
de l'ATMOS, nous mettions en 
vente le livre "Au cœur de l'At- 
mos”, un petit record en la 
matière... 


Comment avez-vous eu l'idée de 
"Meurtre à Grande Vitesse" ? 
Depuis longtemps, je pensais 
écrire un logiciel dont le décor 
serait le TGV... L'idée originale de 
Meurtre à Grande Vitesse date de 
fin 1983. Il s'agissait d’écrire un 
soft original où les problèmes de 
vocabulaire n 'interviendraient 
pas, qu'on puisse adapter à la 
plupart des machines familiales et 
qui n 'utilise pas de lecteur de dis¬ 
quettes. 

Le TGV, Heu clos par excellence, 
se prêtait admirablement à une 
énigme policière. En décembre 
1983, j'ai écrit en une nuit le 
synopsis et situé les personna¬ 
ges. L'idée a ensuite mûri pen¬ 


dant plusieurs mois, et les diffé¬ 
rentes trouvailles qui émaillent ce 
logiciel sont venues progressive¬ 
ment. Je n'ai vraiment attaqué 
l'écriture qu’à la rentrée 1984. 
C'est à ce moment que j'ai eu 
l'idée d'introduire de véritables 
indices qui enrichissent énormé¬ 
ment le logiciel. Bien sûr, un cer¬ 
tain nombre d’éléments ont été 
apportés par des amis ou des col¬ 
laborateurs qui suivaient l'avan¬ 
cement du projet développé sous 
le nom de code "OMNIBUS"... 

Quels sont vos prochains projets 
sur ORIC ? 

Actuellement, le développement 
de COBRA SOFT m'occupe 
beaucoup, et je n 'ai pas trop le 
temps de programmer, malheu¬ 
reusement. Bien sûr, nous avons 
plusieurs logiciels en cours d'éla¬ 
boration, mais ils sortiront, 
comme Meurtre à Grande 
Vitesse, sur plusieurs machines 
à la fois. En tous cas,.nous n'ou¬ 
blions pas les possesseurs 
d'ORIC, machine qui représente 
une part très importante du parc 
de micro-ordinateurs en France. 
Ceci dit, il est de plus en plus dif¬ 
ficile d'écrire seul un bon logiciel, 
et nous œuvrons actuellement 
pour regrouper des program¬ 
meurs, des graphistes, des musi¬ 
ciens, des auteurs, et mettre en 
place des unités de création. 
Pour ce qui est de nos projets pré¬ 
cisément... Chut ! 
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V ous possédez un MICRO- 
DISC et un ATMOS : voici un 
programme, livré clés en main, 
qui va vous permettre de gérer 
votre compte bancaire. Libre à 
vous de l'adapter à votre maté¬ 
riel, Jasmin ou ORIC-1, et à vos 
besoins. De même, les routines 
du programme imprimante pour¬ 
ront être reconsidérées. 

Ce programme est en deux par¬ 
ties séparées, plus le "BOOT UP. 
COM". 

— Programme principal, 

— programme imprimante. 


PROGRAMME PRINCIPAL 

C'est lui qui génère les fichiers. 
Fonctions : 

— consultation du compte (rapide), 

— consultation ligne par ligne, 

— vérification des relevés bancai¬ 
res, 

— appel programme imprimante. 

CONSULTATION RAPIDE 

Ne disposant que de 38 colon¬ 
nes, seuls les numéros de lignes, 
numéros de chèques, débits, cré¬ 
dits et soldes sont affichés par 


page de 24 lignes. 

CONSULTATION 
LIGNE PAR LIGNE 

Les septs valeurs mémorisées 
sont affichées. 


MISE A JOUR 
Elle permet de : 

— entrer les opérations suivan¬ 
tes, 

— modifier une ligne, 

— insérer une ligne, 
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— supprimer une ligne, 

— mettre à jour le disque. 

VERIFICA TION 
Elle permet de : 

— cocher les lignes figurant sur 
le relevé bancaire, 

— cocher par numéro de chèque, 

— obtenir le solde que l'on doit 
trouver sur le relevé bancaire, 

— chercher une erreur si le solde 
ne correspond pas (une seule 
erreur). 

PROGRAMME IMPRIMANTE 

Il reprend les fichiers du pro¬ 
gramme principal et permet l'édi¬ 
tion : 

— par feuillet (60 lignes), 

— par numéro de chèque, 

— par numéro de ligne, 

— par ordre avec somme des 
débits et crédits (par mois ou par 
an). 

FICHIERS ET VARIABLES 

7 FICHIER " ANNEE-DAT " 

I variable AN$(0) 

(exemple : AN$(0) = "1985") 

II permet aux deux programmes 
de savoir avec quels fichiers ils 
doivent travailler (voir "banque" 
lignes 120 à 1 30). 

7 FICHIER " SIZEXX.DAT " 

I variable TA(0) 

(XX = 2 derniers chiffres de l'an¬ 
née) 

Représente la taille du tableau. 
Sert à effectuer les DIM avec 
T = TA(0) = 30. Ceci pour écono¬ 
miser de la mémoire et ne pas 
avoir une taille figée. 

7 FICHIER PRINCIPAL 
"TABXX.DAT" 

Ce fichier comporte 7 variables. 

II est dimensionné lignes 120 à 
280 par appel et traitement des 
deux fichiers précédents. 

Il se présente sous la forme 
F$(6,T) où T = taille du fichier 
enregistré + 30. On peut ainsi 
créer 30 lignes à chaque utilisa¬ 
tion. 


IDENTIFICA TION 
DES VARIABLES 


FS(O.I) 

: drapeau servant à la 
vérification des relevés 
(" " ou "*") 

F$(1,1) 

: DATE (4 chiffres) 

F$ (2,1) 

: numéro de chèque 

F$ (3,1) 

: ORDRE (26 lettres 
maxi) 

F$(4,l) 

: DEBIT 

F$ (5,1) 

: CREDIT 

F$ (6.1) 

: SOLDE 


PROGRAMME "BANQUE" 
Explications par ligne 

120 à 280 

Dimension à donner au tableau 
en mémoire. NOTE : Les lignes 
180 à 280 sont nécessaires pour 



corriger le défaut du DOS ORIC 
qui refuse un RECALL F$, X$ il 
lui faut la forme entière (par ex.: 
"TAB85.DAT") et, de plus, il ne 
tolère pas d'instruction entre le 
DIM et le RECALL. 

300 à 395 
Menu principal. 

1000 à 1740 
Routines. 

1000 à 1020 : affichage titre. 
1200 à 1230 : recherche taille 
actuelle du tableau (A = valeur de 
f où date = 0 donc dernière ligne 
+ 1 ). 

1300 à 1340 : routine de forma¬ 
tage (si nombre entier — ajoute 

" 00 ". 

1400 à 1475 : routine pour 
arrondir et formater afin de cor¬ 
riger les erreurs de la ROM après 
soustraction. 


1500 à 1570 : calcul du solde à 
partir de la 1 re ligne qui a été 
manipulée (LM) jusqu'à (A - 1 ) = 
dernière ligne. 

1600 à 1640 : questions répéti¬ 
tives. 

1700 à 1740 : idem. 

2000 à 2360 
Affichage rapide. 

2400 à 2480 
Affichage par ligne. 

3000 à 3110 
Menu des mises à jour. 

3200 à 3530 

Opération suivantes (entrées). 
3600 à 3670 

Menu de la modification d'une 
ligne. 

3700 à 3780 

Modification par numéro de ligne. 
3800 à 2980 

Modification par numéro de chè¬ 
que. 

4000 à 4130 
Insertion d'une ligne. 

4200 à 4320 
Suppression d'une ligne. 

4400 à 4420 

Mise à jour du disque (appel rou¬ 
tine). 

4500 à 4590 
Vérification (menu). 

4600 à 4690 

Pour cocher par numéro de ligne. 
4700 à 4790 

Pour cocher par numéro de 
chèque. 

4800 à 5240 

Appel programme imprimante. 
9000 à 9280 
Sauvegarde fichiers. 

50000 à 50140 
Page titre. 

REMARQUE SUR 
LES LIGNES 9060 à 9280 

Tout comme pour le RECALL, le 
DOS n'accepte pas ISTORE F$, 
X$. 

De plus, si on utilise une variable, 
ne figurant pas dans le tableau à 
écrire (ici AN$), avant la sauve¬ 
garde un ISTORE F$,"TAB85. 
DAT" est refusé (UNKNOWN 
ARRAY ERROR) d'où les F$( 1,0) 

= F$(1,0) pour provoquer une 
pseudo utilisation du fichier afin 
que le store puisse être accepté. 

Il faut espérer que le nouveau 
DOS nous épargnera ces manipu¬ 
lations lourdes et peu élégantes. = 
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PROGRAMME IMPRIMANTE 

Prévu pour STAR DELTA 10 (80 
colonnes) 

EXPLI CA Tl O N 

DES CODES DE CONTROLE 
(par ligne) 

Pour adaptation sur d'autres 
TYPES. 

20-CHR$(27 69) 

Mode caractères gras. 

7615 CHR$(13) 

Code C.R. (recalage de l'impres¬ 
sion sur 1 re colonne), 

7655 CHR$(27 98 40) 
Déplacement de l'impression de 
40 colonnes (à droite) ( = print ). 
7910 (idem 7615). 

8070 CHR$(12) 

Code F.F. avance papier jusqu'à 
la prochaine page. 

8500 CHR$(27 85 0) 

Sélection impression bidirection¬ 
nelle (normale). 

11030 CHR$(27 70) 

Annulation du mode caractère 
gras. 

11101 CHR$(14) 

Mode élargi. 

11101 CHR$(27 71) 

Mode double impression. 

11102 CHR$(20) 

Annulation mode élargi. 

11102 CHR$(27 72) 

Annulation mode double impres¬ 
sion. 

11130 CHR$(27 49) 

Avance papier 7/22 pouce 
(2,47 mm). 

11130 CHR$(27 85 1) 
Sélection de l'impression unidi¬ 


rectionnelle (pour tableaux). 
11165 CHR$(27 50) 

Avance papier 1/6 pouce 
(4,23 mm). 

EXPLICATIONS PAR LIGNE 
19 à 180 

Idem programme banque. 

7500 à 7585 
Menu principal 
7600 à 7690 
Recherche par ordre. 

7700 à 7740 

Listing par numéro de feuillet. 
7800 à 7820 

Listing par numéro de ligne. 
7900 à 7935 

Listing par numéro de chèque. 

8030 à 8500 

Impression. 

ROUTINES 

11000 à 11040 
Reset imprimante et fin. 

11100 et 11175 
Impression des en-têtes feuillets. 
11 200 à 11240- 
Recherche par ordre (si trouve 

- F= 1). 

11400 à 11440 
Recherche taille tableau. 

11500 à 11530 

Formatage (si nombre entier — 

ajoute ".00”). 

UTILISATION 

Pour créer un fichier (la première 
fois (face B du disque) : 

— initialiser par le lecteur de dis¬ 
quettes, 


— choisir [3], 

— entrer l'année désirée, ex.: 
"1985" + répondre NON, 

— les fichiers sont écrits (ils sont 
nuis), 

— choisir compte bancaire [1], 

— entrer l'année ; le programme 
se charge, 

— choisir [3] mise à jour, 

— choisir [2] modification d'une 
ligne, 

— choisir [11 numéro de ligne, 

— entrer 0 pour le numéro, 

— entrer la date (ex.: 28 04), 

— entrer n° = 0, ORDRE = RE¬ 
PORT, DEBIT = 0, CREDIT = 0, 
solde initial (par ex.: le solde du 
dernier relevé), *, 

— confirmez, 

— autre ligne — NON, 

— dernière ligne — oui pressez 
sur "F", 

— modification disque ou (ou 
non si vous rentrez la suite 
après ; dans ce cas, choisir opé¬ 
rations suivantes). 

UTILISA TION APRES 
INITIALISATION DES FICHIERS 

— initialiser par le lecteur, 

— choisir [1], 

— entrer l'année, 

— choisir 3 et 1 pour entrer la 
suite du fichier (30 lignes à la 
fois) — entrer 0 pour la date 
après la dernière ligne. Ceci clô¬ 
ture le fichier. 

NOTE 

Sur la disquette, la face 1 (A) a 
déjà un fichier (lignes 0 à 5). 


0 ? "BANQUE” (28.04.85) 


2030 J=0:G0SUB1200:PRINX:IFK>A—1THENK=A-1 


Modifications de dernière minute 
permettant d'améliorer le pro¬ 
gramme de gestion de compte 
bancaire. 

Voici les quelques lignes à modi¬ 
fier : 


2420 CLS:PAPER6: INKO:GOSUB1200: IFK>A-1THENK=A-1 

3720 PRINTIÜ3.5; u ": INPUT" NUMERO DE LA LIGNE" ; I : P0KE#26A. 2: GOSUB 1200 

3725 IFI>A-1THENPING:PRINT:PRINT"No de Liane Incorrect !":WAIT200:CLS:G0T03720 

4940 S=S-VAL(F*(5.I)) 
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COIN JASMIN 

DTL 2000 ET JASMIN 


Jackie GODEMIR 


L t adressage du MODEM DTL 
2000 et du Jasmin simulta¬ 
nément, pose un problème, les 
implantations mémoire étant les 
mêmes. 

M. Jackie GODEMIR, avec l'ai¬ 
mable autorisation de la société 
TRAN, nous décrit les modifica¬ 
tions à apporter à la carte inter¬ 
face du MODEM. 

PARTIE MECANIQUE 

— Il suffit d'inverser A4 pour pla¬ 
cer le MODEM en 3Ex au lieu de 
3Fx. 

— Il reste un inverseur disponible 


sur le 74LS14. 

Opération 

— Coupez la piste allant à la bro¬ 
che 2 du 74LS11, 

— reliez la broche 2 du 74LS11 
à la broche 12 du 74LS14, 

— reliez la piste coupée à la bro¬ 
che 13 du 74LS14. 

C'est tout !!! 


PARTIE LOGICIEL 

— Transférez le Basic puis le lan¬ 
gage machine avec !"TKD'', 

— modifiez les adresses # 3Fx 
(3F8, 3F9, 3FC, 3FD) du Basic en 


# 3Ex, 

— tapez la ligne suivante : 

20 ! LOAD ''DTL(23).BIN" 

— sauvez le Basic modifié, 

— charger le langage machine, 

— tapez et exécutez le pro¬ 
gramme suivant : 

10 FOR 1= # A000 TO #A592 
20 IF DEEK(I) = # 3FC THEN 
DOKEI, # 3EC 

30 IF DEEK(I) = # 3FD THEN 
DOKEI, # 3ED 
40 NEXT 

— fiare : !SAVE"DTL(23).BIN, 
K A000, # A592. 



57 


























































Je m'abonne à la revue THEORIC pour 11 NUMEROS du n° .... au 


ATTENTION : pour les mois de juillet et août, il n'y a qu'un numéro. 

Ci-joint un chèque (libelle à l'ordre de SORACOM SARL d'un mon¬ 


tant de.F. 

NOM .Prénom 

Adresse . 

Code postal .Ville . 

Pays. 


Signature .... 

Retourner le bulletin à : 


EDITIONS SORACOM — Service abonnements THEORIC — Le Grand Logis, — 10 av. 
du Gai. de Gaulle — 35170 BRUZ. 

TARIF FRANCE.*. 270,00 

TARIF EUROPE. 270,00 + 50,00 

TARIF PAR AVION. 270,00 + 140,00 


r 

i 

i 

i 

i 

i 

i 

L 


ANNONCEZ-VOUS ! 

les petites annonces et les messages 

I I I I I HT 


1—T 
J L 


rrT~m~~r i i i i i m i i i i m i i m 


I L 


ANNONCE GRATUITE. JOINDRE 5 FRANCS EN TIMBRES 


n 

i 

i 

i 

i 

i 

i 

j 


Vends micro ordinateur ORIC-ATMOS 48 k 
+ pupitre support ordinateur câblé + moni¬ 
teur monochrome vert Zénith + drive ORIC 
+ magnétocassette + imprimante Seikosha 
GP 100 A + cassettes diverses + program¬ 
mes disquettes 3" divers + DOS V1.1 — 
RANDOS — XLDOS + disquettes vièrges 3" 
+ nombreux livres et revues ATMOS + ali¬ 
mentation ORIC + disquette. Vendu le tout : 
5000 F. Téléphoner à M. SIN RONIA, 3 villa 
Lantiez, 75017 Paris, au 226.62.22 après 
21 h et au 222.66.62 la journée. 


Vends ATMOS et lecteur Jasmin + disquet¬ 
tes + livres, cassettes, magnéto, TV N&B, 
l'ensemble : 5000 F. Tél.: (1) 205.36.83 
après 20 h. 

Echange programmes ORIC-1/ATMOS sur 
cassette. S'adresser à Olivier MARIEN, 51 
rue Nationale, 62550 PERNES EN ARTOIS. 

Achète drive synth. vocal tous prog. éduca¬ 
tif, jeux. CW, RTTY, livres pour Atmos. Cher¬ 
che doc. plans inf. interfaces. C. BECQUET, 
tél.: (35) 59.12.51 


Vends ORIC-ATMOS + support + moniteur 
+ drive + imprimante SEIKOSHA GP 100A 
+ DOS + disque 3" + livres : 5000 F. Tél.: 
(22) 222.66.62 ou après 21 h 226.62.22. 
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Photo non contractuelle 




ORIC ATM0S+PERITEL+AUM+3CASSETTES DE JEUX 


LOGICIELS ORIC 1 

ASSEMBLER DISASS «02 00 INTERTRON 60 49 

ASTEROIDS 69 9/ MONITEUR 1 0 105 55 

CARN 3 60 49 MULTlGAMES 53 37 

CASPAK 7116 OR'BLE 60 49 

CASSE BRIQUES 49 81 ORIC FtlGHT 37 95 

CENTIPEOE CHENILLE INF 79 46 ORIC FORTM 142 32 

OICO 5 60 49 ORIC MON 102 00 

OINKY KONG 79 46 PUISSANCE 4 49 81 

EUROPE OU GEOfRANCE 73 53 SPACE CRYSTAL 79 46 

GALAXTON 71 16 STARFIGMTER 79 46 

GALAXV 5 79 46 THE ULTRA 79 46 

GENCAR 105 55 TRAITEMENT 3D 105 55 

MOPPER OU JOGGER 79 46 WORD PROCESSOR 166 04 

HYPER MASTER MIND 60 49 ZOOlAC 79 46 

PERIPHERIQUE & ACCESSOIRES 

Moniteur couleurs OR14. 2750 

Câble péritel avec alimentation. 150 

Moniteur monochrome vert. 950 

Cable pour moniteur monochrome. 80 

Modulateur pour télé noir et blanc. 260 

Magnêtocassette ZETA. 350 

Cassettes vierges (les 10). 75 

Imprimante 4 couleurs MCP40 . 1290 

Imprimante 4 couleurs MCP80 . 2850 

Cable pour imprimante. 150 

Interface joystick programmable . 350 

Joystick QUICKSHOT 1. 95 


ORIC 









LOGICIELS ORIC 1 

& ATMOS 




30 INVADERS 

79 46 

J APPRENOS LA CAO 

135 20 



ACHERON S RAGE 

79 46 

KIT ECRAN 

11267 



L AIGLE D OR 

135 20 

COMPILATEUR BASIC 

171 97 



ANNUAIRE 

105 55 

LE PROTECTOR 

71 16 



AS DES AS 

11267 

LOTORICIELS 

90 14 



AUTHOR 

130 46 

MYSTERY TOWER 

79 46 



CHESS 

79 46 

ORIC BASE 

112 67 



CRIBBAGE 

79 46 

ORIC BASIC PLUS 

11267 



CROCKY 

90 14 

ORIC CALC 

130 46 



DAO 

11267 

ORIC GESTION 1 

142 32 



DAMBUSTER 

79 46 

ORIC GESTION 2 

142 32 



DEFENCE FORCE 

71 16 

ORICADE 

97 25 



DONT PRESS LETTER Q 

79 46 

OR ION 

71 16 



DRAUGHTS (Dames) 

79 46 

ORISCRIBE 

171 97 



FRIGATE COMMANDER 

74 72 

PROBE 3 

85 39 



GASTRONOM 

71 16 

QUACK A JACK 

79 46 



GESTION DE STOCK 

135 20 

RAT SPLAT 

79 46 



GHOST GOBBLER 

65 39 

SCUBA DIVE 

79 46 



GODILLORIC 

71 16 

SUPER COPY ECRAN 

11267 



GREEN CROSS TOAO 

85 39 

SUPER FRUIT 

79 46 



HARRlER ATTACK 

79 46 

TRICK SHOT 

79 46 



HU'BERT 

90 14 

ULTIMA ZONE 

79 46 



INVAOERS 

65 39 

XENON 1 

97 25 



J APPRENDS L ANGLAIS 

105 55 

ZORGON S REVENGE 

68 95 









PROMO LOGICIELS ORIC 1 

6 best sellers des jeux 
d’arcade pour ORIC 1 
pour 200 F! 


LE TUBE DE L’ETE 


Disponible chez votre revendeur ou par correspondance 

EUREKA INFORMATIQUE, 39, rue Victor Massé 75009 PARIS 


Pour commander, utiliser le bon à découper de la page suivante 







































ORIC ATMOS+MONITEUR COULEUR+MAGNETO K7 


Performant : On ne présente plus l’ORIC ATMOS : 48 k Octets de mémoire. BASIC performant, graphisme haute résolution couleurs, etc. . 
Pour afficher clairement ces performances, nous avons fait construire spécialement un moniteur couleur. l’OR 14 : il est équipé d’un câble qui se 
branche directement dans l’ordinateur, ce qui facilite les branchements L’écran assure un contraste et un rendu des couleurs exceptionnel, et 
l'amplitude a été spécialement réglée pour obtenir un affichage « pleine page ». 


Complet : l’ensemble que nous vous 
proposons est « prêt à travailler » (ou à 
jouer !) : un ordinateur ORIC ATMOS, 
un moniteur couleur 36 cm OR 14 de 
haute qualité, et un magnétocassette 
Vous avez tout de suite tout ce qu’il faut 
pour démarrer. 


Evolutif : Bien que largement assez per¬ 
formant. l’ensemble construit autour de 
l'ORIC ATMOS peut s’agrandir au fur et à 
mesure de l’évolution de vos besoins ou 
de vos connaissances grâce à de nom¬ 
breuses possibilités de branchements 


Intelligent : Déjà établi comme un best- 
seller sur le marché français. l'ORIC 
ATMOS a fait ses preuves et bénéficie 
d'une très large bibliothèque de logiciels 
de toutes sortes (jeux éducatifs, applica¬ 
tions professionnelles) dont un très grand 
nombre en fiançais. 


L’ATMOS et les matériels qui l'entourent sont couverts par une garantie constructeur d’un an par EUREKA INFORMATIQUE, qui a 
récemment acheté ORIC Angleterre et qui est à ce titre propriétaire de la marque ORIC et distributeur exclusif de ses produits 


ORIC 


LE TUBE DE L'ETE 

i 

Les matériels suivants 


DERNIERE MINUTE: 

LES 1000 PREMIERES COMMANDES 
SERONT ACCOMPAGNEES DE 
10 CASSETTES DE PROGRAMME 
GRATUITES 


Bon de commande à retourner à 

Eurêka Jh/ b t m A f U* 

39. rue Victor Massé 
75009 PARIS 
Tél : 281.20 02 
Télex 649 385 F 


M _ 
Adresse 


. |. Code _ Ville _ 

a désire commander 

Un ensemble ORIC A 3 490 F 
i Un ORIC ATMOS à 990 F 



Qté 

Désignalion 

Prix 





Cl-)oint mon règlement par _ 


(Ajouter 25 F de frais de port si votre 
commande est inférieure à 500 F 


Disponible chez votre revendeur ou par correspondance 











































